P1 Prova Exerci Net

program p1;
var a, b : integer;
divisao: real;
begin
writeln;
write ('Digite um valor inteiro: ');
readln (a);
repeat
write ('Digite outro valor inteiro: ');
readln (b);
until b <> 0;
divisao := a/b;
writeln ('A divisao do primeiro valor pelo segundo eh: ', divisao:5:2);
writeln;
end.