Вчем program zadacha1; var a,b,c,d,d1,e: integer; x,y,k,l: real; begin writeln('цыбулак максим'); readln(a); readln(b); c: =a+b; e: =a*b; d: =a-b; k: =a/b; d1: =b-a; l: =b/a; writeln('a+b=',c); writeln('a-b=',d); writeln('b-a=',d1); writeln('a*b=',e); writeln('a/b=',k); writeln('b/a=',l); m; =sqr(a); n; =sqr(b); o; =sqrt(a); p; =sqrt(b); writeln('квадрат числа',a,'=',m); writeln('квадрат числа',b,'=',n); writeln('корень числа',a,'=',o); writeln('корень числа',b,'=',p); end.

Подправил,решение гораздо меньше и используется меньше переменных

program ZADACHA1;
var
a,b,c:integer;
Begin
Writeln('Цыбулак Максим');
Readln(a);
Readln(b);
Writeln('a+b=',a+b);
Writeln('a-b=',a-b);
Writeln('b-a=',b-a);
Writeln('a*b=',a*b);
Writeln('a/b=',a/b);
Writeln('b/a=',b/a);
Writeln('Квадрат числа ',a,' = ',sqr(a));
Writeln('Квадрат числа ',b,' = ',sqr(b));
Writeln('Корень числа ',a,' = ',sqrt(a));
Writeln('Корень числа ',b,' = ',sqrt(b));
end.