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

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

program five;

var
   a:real;
begin
     write('a=');
     read(a);
     writeln('V=', a*a*a);
     write('S=', 6*a*a);
end.

Назад