Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры

Прости, что отвечаю через 2 часа, был не дома)

var

i, j, n : integer;

flag : boolean;

begin

write ('n = ') ;

read (n) ;

for i : = 2 to n do begin

flag : = true;

for j : = 2 to i-1 do

if (i mod j = 0) then begin

flag:=false;

break;

end;

if flag = true then write (i, ' ') ;

end;