Question

Pascal ABCСоставьте программу нахождения объёма прямоугольного параллелепипеда со сторонами a,b,c. Формула объёма V=abc. Значения переменных a,b,c введите с клавиатуры.Пример ввода:3 4 5Пример вывода:Объём = 60

Answer 1

Program Program1;
Var
a,b,c,v:real;
begin
write('Введите значение стороны A: ');
readln(a);
write('Введите значение стороны B: ');
readln(b);
write('Введите значение стороны C: ');
readln(c);
v:=a*b*c;
writeln('Объём = '+floattostr(v));
end.