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

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

program two;
var
   a:real;
begin
   writeln('Введите значение a');
   readln(a);
   a:=a*a;
   write('Площадь квадрата = ',a);
end.

Назад