По информатике в паскале *с клавиатуры вводится натуральное число n из промежутка от 0 до 100. найти и вывести на экран все простые числа от 0 до n*

Var i,n:integer;
begin
 writeln('введите число от 0 до 100');
readln(n);
for i:=1 to n do begin
 writeln(i);
end;
end.