program raz;
var a, b, summ, razn, proizv, chast: real;
begin
write('Введите значения a и b: ');
readln(a, b);
a := sqr(a);
b := sqr(b);
summ := a + b;
razn := a - b;
proizv := a * b;
chast := a / b;
writeln('Сумма квадратов -- ', summ);
writeln('Разность квадратов -- ', razn);
writeln('Произведение квадратов -- ', proizv);
writeln('Частное квадратов -- ', chast);
end.