Что будет выведено после выполнения программы program n_7;
var a, b, c: integer; ans: boolean;
begin
а:=20;
b:=2;
c:=21;
ans:=(a=b) or (a=c) or (b=c);
writeln (ans)
end.​

program n_7;

var a, b, c: integer; ans: boolean;

begin

а:=20;

b:=2;

c:=21;

ans:=(a=b) or (a=c) or (b=c);

writeln (ans)

end.

будет выведено False

поскольку а≠b и a≠c и b ≠c

Ошибка компиляции.

Объяснение:

В строке 8 после вызова функции Writeln отсутствует точка с запятой (признак конца строки). А следовательно при запуске такой программы выведется ошибка.