СРОЧНО!!! На паскале надо составить программу!!! Даны длины ребер прямоугольного параллелепипеда. Найти объем данного параллелепипеда (V=a*b*c) и площадь его поверхности ( S=2(a*b+b*c+a*c) ). Формат вывода результата «Объем параллелепипеда с ребрами ___, ____ и ____ равен ____» и «Площадь поверхности параллелепипеда с ребрами ___, ____ и ____ равна ____»

Вопрос школьника по предмету Информатика

СРОЧНО!!!
На паскале надо составить программу!!!
Даны длины ребер прямоугольного параллелепипеда. Найти объем данного параллелепипеда (V=a*b*c) и площадь его поверхности ( S=2(a*b+b*c+a*c) ).
Формат вывода результата «Объем параллелепипеда с ребрами ___, ____ и ____ равен ____» и «Площадь поверхности параллелепипеда с ребрами ___, ____ и ____ равна ____»

Ответ учителя по предмету Информатика

var a,b,c,v,s:integer;

BEGIN

writeln (‘Введите длины сторон’);

readln(a); readln(b); readln(c);

v:=a*b*s;

s:=2*(a*b+a*c+b*c);

writeln(‘
Объем параллелепипеда с ребрами’ ,a, ‘ , ‘ ,b, ‘ и ‘ ,c, ‘равен ‘ ,v);

writeln(‘Площадь поверхности параллелепипеда с ребрами’ ,a, ‘ , ‘ ,b, ‘ и ‘ ,c, ‘равна ‘ ,s);

end.