ArtForce //Pascal ABC.NET v3.1 сборка 1172

Var 
a,b,c:real;
begin
 read(a,b,c);
 writeln('S=',2*(a*b+b*c+a*c));
 writeln('V=',a*b*c);
end.

Пример ввода:
1
2
3
Пример вывода:
S=22
V=6

Gleb1Kosyrev

Verified answer

program ololo;uses crt; var    w:integer;    a,s,b,c,v:real; begin repeat Writeln(''); Writeln(''); Writeln('Ввод значений сторон - 1'); Writeln('Вычислить объем - 2'); Writeln('Вычислить площадь - 3'); Writeln('Завершить программу -4'); Writeln('_________________________'); Readln(w); case w of 1:begin clrscr;   Writeln('Ввод стороны A');   Readln(a);   Writeln('Ввод стороны B');   Readln(b);   Writeln('Ввод сторны C');   Readln(c);   end;   2:begin clrscr;   v:=a*b*c;   Writeln('Объем фигуры равен =',v);   end;   3:begin clrscr;    s:=2*((a*b)+(b*c)+(a*c));    Writeln('Площадь фигуры равна =',s);   end;   end; until w=4; end.