Задача.
Для данного N составить алгоритм вычисления факториала.

• Бейсик
  REM Нахождение факториала
  INPUT "Введи N="; N
  F=1
  FOR I=1 TO N
  F=F*N
  NEXT I
  PRINT "Факториал числа"; N;" равен"; F
  END
  Паскаль
  program zadacha \(input, output\);
  {вычисление факториала}
  var
  f,i,n:integer;
  begin
  writeln \(‘введите натуральное число N’\);
  readln\(n\);
  f:=1;
  for i:=1 to n do f:=f*N;
  writeln \(n, ‘\!=‘, f\)
  end.
• Бейсик
  REM Нахождение факториала
  INPUT "Введи N="; N
  F=1
  FOR I=1 TO N
  F=F*I
  NEXT I
  PRINT "Факториал числа"; N;" равен"; F
  END
  Паскаль
  program zadacha \(input, output\);
  {вычисление факториала}
  var
  f,i,n:integer;
  begin
  writeln \(‘введите натуральное число N’\);
  readln\(n\);
  f:=1;
  for i:=1 to n do f:=f*i;
  writeln \(n, ‘\!=‘, f\)
  end.