Program n2;
var a,b,c: real;
begin
readln(a,b,c);
if (a=c) and (a=b) and (b=c) then write('является') else write('не является');
end.
Сесть
Взять ручку
Открыть тетрадь
Записать число и тему урока
Var a,b,c,s,v:real;
begin
readln(a);
readln(b);
readln(c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln('объем ',v,' площадь поверхности ',s);
end.