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

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

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

тупанул чето

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

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.