program p1;
var a,b:real;f
unction prod(a,b:real):real;
begin
if b=0 then prod:=0
else prod:=a+prod(a,b-1);
end;
Begin
write('Dati a si b:');
readln(a,b);
writeln('Produsul lui a si b este:',prod(a,b));
readln;
End.
si al-2-lea program
program p1;
var a,b:real;
function put(a,b:real):real;
begin
if b=0 then put:=1
else put:=a*put(a,b-1);
end;
Begin
write('Dati a si b:');
readln(a,b);
writeln('a la puterea b este:',put(a,b));
readln;
End.