Решения задач на тему ввода и вывода данных в Pascal

Решение задачи №10

program ten;

var
   a,b:real;

begin
     write('a=');
     read(a);
     write('b=');
     read(b);
     writeln('(a*a)+(b*b) = ',sqr(a)+sqr(b));
     writeln('(a*a)-(b*b) = ',sqr(a)-sqr(b));
     writeln('(a*a)*(b*b) = ',sqr(a)*sqr(b));
     writeln('(a*a)/(b*b) = ',sqr(a)/sqr(b));
end.

Назад