Вопрос по информатике:

Вот кусочек программы , как сделать так что бы после if A=B then
begin
writeln('.....');
end программа не останавливалась Program BOOM ;
var A,B:integer;
begin
writeln(' .....');
readln(A);
writeln(' ...... ');
readln(B);
if A=B then
begin
writeln('.....');
end
else
begin
writeln(' .....');
readln(B);