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.
Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
А только у меня фото не отображается?