Паскаль Даны два числа. Определить, равны ли они.
Вывести "YES', если числа равны и пустую строку
В противном случае,​

program a1;

uses crt; {эта строчка не обязательна}

var a,b:integer;

begin

 readln(a);{ввод с клавіатуры 1го чісла}

 readln(b);{ввод с клавіатуры 2го чісла}

 if a=b then writeln('YES'){проверка и вывод на экран}

 else writeln('NO'); {строчка добавит отрицание если числа не равны}

end.

Объяснение: