program mn; uses crt; var n,znam:integer; function pr(var a:integer):integer; var i,s:integer; begin s:=0; for i:=1 to a do s:=s+znam; pr:=s; end; BEGIN ClrScr; Write('n:'); readln(n); Write('Znamenatel:'); readln(znam); writeln(pr(n)); readln; END.