Láb-méter

Program LabMeter;
Uses crt;
Const
v=3.28;


Var
m,l:real;



Function Valtas(x,y:real):real;
Begin
Valtas:=(x*y);
End;

BEGIN
Clrscr;
Writeln('Hany metert valtsak at labra?');
Readln(m);
l:=Valtas(m,v);
Writeln(l:6:3,'lab');
Readln;
END.