program obim;
var
a,o:integer;
function obim(a:integer;)of integer;
begin
o:=3*a;
end;
begin
Write('Unesite stranicu trougla:');readln(a);
o:=obim(a);
Writeln('Obim trougla je:' o:8:2);
Readln;
end.