Вот кусочек программы , как сделать так что бы после 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);