Program Program1;
var a,b,c,d,e,f:real;
begin writeln('Введите число 1');readln(a);writeln('Введите число 2');readln(b);
c:=a-b; //Разностьd:=a+b; //Суммаe:=d/c; //Частноеf:=sqr(e); //Квадратwriteln('квадрат частного суммы двух чисел и их разности = ', f);
end.