Algoritmo para ler dois números inteiros A e B e informar se A é divisível por B.

//Faça um algoritmo para ler dois números inteiros A e B e informar se A é divisível por B.

program inteiro_a_b;

var a,b:integer;

resto:real;

begin

writeln('informe a');

readln(a);

writeln('informe b');

readln(b);

resto:=(a mod b);

if(resto=0)then

writeln('R:A e divisel por b')

else

writeln('R:impossivel dividir A por B');

readln;

end.