Среди чисел из интервала от А до В найти все простые.

[veterok]

Среди чисел из интервала от А до В найти все простые. Распознование простых чисел оформить в виде подпрограммы.

[DM_bite]

4.

program Simple;
var a,b,i: integer;
begin
ReadLn(a,b);
if a<b then
 begin
 for i:= a to b do
  begin
  if not (i mod 2 = 0)
   and not (i mod 3 = 0)
    and not (i mod 5 = 0)
     and not (i mod 7 = 0)
      and not (i mod 11 = 0)
      then WriteLn(i);
      end;
      end
      else WriteLn('a>b');
      ReadLn;
      end.