Составить программу, печатающую все простые числа, не превосходящие данного числа.

паскаль абс

Program Prostoe;

Uses

Crt;

Var

i, {возможный делитель}

Number : integer; {исследуемое число}

Begin

ClrScr;

writeln (‘Какое число должно быть проверено? ‘);

read (Number);

i : = 1;

repeat

i : = i+1;

until Number mod i = 0;

if Number=i

then

writeln (Number,’ является простым‘)

else

writeln (Number,’ делится на ‘, i);

readln;

End.