Program P1;
var a,b,s:real;
function F(a1,b1:real):real;
var s1:real;
begin
s1:=a1*b1;
F:=s1;
end;
begin
writeln('Dati valori lui a si b:');
write('a=')readln(a);
write('b=')readln(b);
s:=F(a,b);
writeln('s=',s:8:4);
readln;
end.