Паскаль Даны два числа. Определить, равны ли они.
Вывести "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.

Объяснение:

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }