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