ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ Язык Free Pascal GNU C GNU C++ Delphi Java Python 2.7 Mono C#...

Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ
Язык Free Pascal GNU C GNU C++ Delphi Java Python 2.7 Mono C# Python 3.1
Min время, сек 0.001 0.004 0.002 0.002 0.124 0.008 0.064 0.046
Среднее время, сек 0.005 0.006 0.011 0.005 0.124 0.024 0.064 0.079
Верных решений 73 5 102 9 1 2 1 301
Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1.

Входные данные
Вводится целое положительное число.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
15
выходные данные
3

Answer 1

Паскаль:
Program P;
uses crt;
var n,i:integer;
Begin clrscr;
write(' N='); readln(n);
 i:=1;
while i
if n mod i=0 then
begin
writeln('Наименьший делитель=',i);
end;
end;
end.