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

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

program six;

var
   a,b,c:real;
begin
     write('a=');
     read(a);
     write('b=');
     read(b);
     write('c=');
     read(c);
     writeln('V=', a*b*c);
     write('S=', 2*(a*b+b*c+a*c));
end.

Назад