politerhon

var F,R,N:integer;

begin

write('Введите число R ');

read(R);

write('Введите число N ');

readln(N);

if R < N then

F:= F * R;

R:= R + 1;

writeln('F = ',F);

write('R = ',R);

end.