Есть пара неясностей в условии. Если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.
И еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k>=4 then write(i:3); уберите знак > .
1 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число N');
for i:= 1 to n do begin
k:=0;
for j:= 1 to i do
if i mod j =0 then k:=k+1;
if k>=4 then write(i:3);
2 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число N');
for i:= 1 to n do begin
k:=0;
for j:= 2 to (i-1) do
if i mod j =0 then k:=k+1;
if k>=4 then write(i:3);
Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.
Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.
Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.
Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит сказал" неправду "я абориген" а П передал он абориген.
В обоих случаях проводник абориген.
П- проводник
Ж - житель
