program teglatest;
uses crt;
var a,b,c,f,t:real;
begin
     clrscr;
     f:=0;
     t:=0;
     writeln('Adja meg a teglatest egyik oldalat!');
     readln(a);
     writeln('Adja meg a teglatest masik oldalat!');
     readln(b);
     writeln('Adja meg a teglatest harmadik oldalat!');
     readln(c);
     f:=2*(a*b+b*c+c*a);
     t:=a*b*c;
     writeln('A terfogat: ',trunc(t));
     writeln('A felszin: ',trunc(f));
     readln;
end.