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

кажись это программа указывающая ток какое число и все.не печатает же простые числа

простое оно или делится

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.