Question

Все простые числа да заданного М числа(включительно)

Answer 1

Program Test;
Var
  N,n1,tst,i,count:integer;
Begin
  readln(N);
  while n1<N do begin
    n1:=n1+1;
    count:=0;
    for i:=1 to n1 do begin
          if n1 mod i = 0 then inc(count);
        end;
    if n1>1 then if  count=2 then writeln(n1);
  end;
End.

Answer 2

А проверить сначала?..

Answer 3

Где тут простые числа?..

Answer 4

тупанул чето

Answer 5

Это и есть задание.
Так написано: "все простые числа до М (включительно) записать"