В сущности как-то так:
procedure func;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln(a*b);
end;
func;
end.
В сущности как-то так:
procedure func;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln(a*b);
end;
begin
func;
end.