Ответ:

program calc;

var a,b,thast,ost: integer; c,cv: real;

begin

writeln('введи 2 числа через робел');read (a,b);

c:=a-b;

writeln ('Разность=',c);

c:=a+b;

writeln ('Сумма=',c);

c:=a*b;

writeln ('Произведение=',c);

c:=a/b;

writeln ('Частное=',c);

cv:=sqr(a+b);

writeln ('Квадрат суммы=',cv);

thast:=a div b;

writeln ('Целое частное=',thast);

ost:=a mod b;

writeln ('Целый остаток=',ost);

end.