uses crt;

function model ( a,b,c:integer;var powierzchnia:integer;var objetosc:integer):integer;

begin

objetosc:=a*b*c;
powierzchnia:=2*a*b+2*a*c+2*b*c;
model:=4*a+4*b+4*c;

end;

var

a,b,c,powierzchnia,objetosc,ile_drutu:integer;

begin

writeln('Podaj bok A :'); readln(a);
writeln('Podaj bok B :'); readln(b);
writeln('Podaj bok C :'); readln(c);
writeln;
writeln;

ile_drutu:=model(a,b,c,powierzchnia,objetosc);

writeln('Objetosc tego modelu wynosi :',objetosc);
writeln('Powierzchnia tego modelu jest rowna :',powierzchnia);
writeln('Na ten model zuyto :',ile_drutu,' cm drutu');

readkey;

end.