Question

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

Answer 1

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