Вот кусочек программы , как сделать так что бы после if A=B then begin ...

Question

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

Comments

Что тут непонятного? ;-) Она вообще компилироваться не должна!

Answer 1

Если после Begin идёт всего одна строка кода, то end; ( энд точка с запятой) после неё ставить не обязательно. Программа может остановиться только после end. (Энд с точкой)

Comments

Безусловно, профессор! Но! ГДЕ Вы видите end. (Энд с точкой) ?! Именно это грубое нарушение синтаксиса языка Паскаль я имел в виду, когда написал в комментарии, что программа "вообще компилироваться не должна".