Var a,b,c:real;
begin
read(a,b,c);//стороны прямоугольников
write(a*b*c/6);
end.
10011
-
01100
=
00111
---------------------------------------
Это имя Потап 1я буква П и 5я П
Uses crt;
var a,p:integer;b,s:real;
begin
writeln ('введите периметр',p);
readln (p);
writeln ('введите длину',a);
readln (a);
b:=((2*a-p)/-2);
s:=a*b;
writeln (s);
End.