Question

Перепишите программу в тетрадь, исправляя ошибки.

Vap - v, a, b, c;
real;
begin
write('Введите значения a, b, c: ');
readln(a, b, c);
v = a * b * c;
s = 2 * (a * b + b * c + a * c);
writeln('Объем параллелепипеда -- ');
writeln('Площадь поверхности параллелепипеда -- ', s);
end.

Answer 1

Var  v, a, b, c:real;
begin
write('Введите значения a, b, c: ');
readln(a, b, c);
v := a * b * c;
s := 2 * (a * b + b * c + a * c);
writeln('Объем параллелепипеда -- ');
writeln('Площадь поверхности параллелепипеда -- ', s);
end.