проверьте задачу

[Сергей505]

uses crt
var i,n:integer;
begin
Write('Введите число N:');
Read(n);
For i:= 1 to n do begin
if i mod 4=0 then
Writeln(i);
end;
end.

[Zer0]

и что ее проверять? программа выводит числа от 1 до n, которые делятся на 4, как Вы и писали

[Сергей505]

но вы так и не написали прогу, печатающую все простые числа, не привышающие данного

[Zer0]

Модераторы, влепите уже пермабан этому чудику ((
http://programmersforum.ru/showpost....71&postcount=3
Ссылка на ВАШУ же тему месячной давности, где Вам ответили, в прошлой теме я эту ссылку оставлял
http://programmersforum.ru/showpost....06&postcount=2
Еще один вариант решения, который Вам уже сегодня написали

И вообще-то начиная с третьего поста уже не по теме пишете

[Сергей505]

function isPrime(X: LongInt): boolean; - то я не знаю

isPrime:=false; - это я не знаю

if not odd(x) and (x<>2) { проверяем на чётность } это я не знаю
then exit;
i:=3;
while i <= sqrt(x) do { проверяем только нечётные }
begin

inc(i,2);- это я не знаю

isPrime:=true; -это я не знаю
longint;-это я не знаю

isPrimе это я не знаю
можешь это все заменить на чтонибудь другое, это яроходил

[Сергей505]

это я не проходил

[Zer0]

Если Вы не знаете элементарных вещей, таких как логические переменные, типы целых чисел в Pascal, условные операторы... ну тут Вам уже ничто не поможет *пичаль*

[Сергей505]

это мне в техе эти переменные не объясняли

[Zer0]

А в чем проблема минут 10 потратить на использование гугла или почитать учебник\методичку? Извините, но даже если и так, откуда мне знать что Вы проходили, а что нет?