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.