eto ti q


program kub ;
var a,b,c : real;
begin
write (a)
read (a)
write (b)
read (b)
write (c)
read (c)
begin
writeln ( ' Пресметнете лицето на куб ' Sok = 2*\ a+b \ *c )
read (Sok)
end.
begin
writeln ( S = a*a )
read (S )
end.
writeln (Sn = Sok + 2*S)
read ( Sn )
end.