Дано натуральное число N. Найти и вывести все простые делители
этого числа. Паскаль. Через вложенные циклы.

var  n,k,x,i,j: integer;begin  write ('Введите число: ');  readln (n);  writeln ('Простые делители числа:');  x:=0;  for i:=2 to n do begin    if n mod i =0      then begin        k:=0;        for j:=2 to i div 2 do                     if i mod j=0              then begin k:=1; break end;        if k=0 then begin writeln (i); x:=1; end;      end;  end;  if x=0 then writeln ('Нет простых делителей');end.-------------------Пример:--------------------Введите число: 42Простые делители числа:237---------------------------------------------------