Помогите с выводом простых чисел на Pascal

[nec117]

Здравствуйте! Помогите, пожалуйста с программой. Нужно чтобы она выводила все простые числа, которые меньше а. Вот код программы:

Var
b:real;
a,c, i: integer;
Begin
c:=3;
Write('Введите число: ');
Read(a);
 for i:=1 to a-1 do
 begin
  b:=Exp(i*ln(c))-c;

  if b mod i = 0 then

   Writeln(' ', b:5:0);
      end;
   end.

Но компилятор жалуется, что mod не может работать с real. Что делать? Заранее спасибо!)

[mMAg]

Это зависит от того, что вы хотели сделать этой строчкой. Вы вообще представляете себе случай, когда b mod i равно 0, если b не целое, а i целое? Тут не в компилляторе проблема, а в неправильном проектировании алгоритма.

[Пепел Феникса]

а зачем вообще реал то???
если простые числа это полюбому целые.
вот кусок кода:

var i,j,a:word;
f:boolean;
begin
 f:=false;
 readln(a);//считываем a
 for i:=1 to a do 
  begin
  f:=false;//сначало считаем что число простое
   if i<=3 then writeln(i)//если меньше иль равно трем то сразу выводим
           else for j:=2 to (a div i) do if (i mod j)=0 then f:=true;//иначе перебираем все числа от 2(на 1-цу делится все) до половины i, если есть делитель то значит сложное
  if f=false then writeln(i);//ну и выводим если простое
  end;
end;