For12

Program For12;
var
i,N:integer;
pr:real;
begin
Writeln('Введите целое число (N>0) N=');
readln(N);
pr:=1.1;
for i:=2 to N do pr:=pr*(1+i/10);
Writeln('Ответ: произведение =',floattostr(pr));
end.