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.
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.