Простые числа Опции

[Santrex]

Написать все простые числа в диапозоне [2..n].
Не используя массивы, функции и процедуры.
Надеюся что это реально.У меня есть рабочая версия кода, но препад сказал что такой гемор он не примет посмотрите как там полегче реал переделать.

Код

program zadanie_1;
{uses crt;
       var
         x,n:integer;
       begin
            clrscr;
            writeln ('Введите Количество символов: ');
            readln (n);
            writeln ('');
 if n < 5 then
 writeln ('3')
 else
 write('3','  ','5','  ');
       if n>2 then
                       for x:= 2 to n do
   begin
                            if x mod 2 <> 0 then
                            if x mod 3 <> 0 then
                            if x mod 5 <> 0 then
                            if x mod 7 <> 0 then
                            if x mod 9 <> 0 then
                              write (x,'   ');
                    end
                   else
               writeln ('Символов >2 нет!');

repeat
until keypressed;
end.

Если нет то жду ваших вариантов. Я смотрел похожие задачи на этом сайте.Они мне не помогли так как у моих преподов на данном этапе высокие требование к простате написания.

Сообщение отредактировано: Santrex - 27.12.2004 21:36