"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

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

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

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

 

 

Назад