Из заданного интервала натуральных чисел определить все простые числа

program Kentaw;
uses crt;
var
   i,N,j,M:Longint;
begin
   clrscr;
   writeln('Vvodite N');
   readln(N);
   if N=1 then begin writeln('1 ne prostie i ne sostavnoe'); readkey;exit; end;
   if N=2 then begin writeln(2);readkey; exit; end;
   M:=2;
    Repeat
     j:=0;
     for i:=1 to M do
       if M mod i=0 then j:=j+1;
     if j=2 then writeln(M);
     inc(M,1);
    until M=N;
 readln
end.

uses crt;
function Prost(a:longint):boolean;
var i:longint;
begin
for i:=2 to round(sqrt(a)) do
if a mod i=0 then Prost:=false;
end;
var a,b,i:longint;
begin
clrscr;
repeat
write('a=');readln(a);
until a>0;
repeat
write('b=');readln(b);
until b>a;
for i:=a to b do
if Prost(i)then write(i,' ');
readln
end.

for i:=2 to round(sqrt(a)) do

program Kentaw;
uses crt;
var
   i,N,j,M:Longint;
begin
   clrscr;
   writeln('Vvodite N');
   readln(N);
   if N=1 then begin writeln('1 ne prostie i ne sostavnoe'); readkey;exit; end;
   if N=2 then begin writeln(2);readkey; exit; end;
   M:=2;
    Repeat
     j:=0;
     for i:=1 to M do
       if M mod i=0 then j:=j+1;
     if j=2 then writeln(M);
     inc(M,1);
    until M=round(sqrt(N));
 readln
end.

uses crt;
var a,b,c,d:real;
begin
clrscr;
repeat
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
until (a>0)and(b>0)and(c>0)and(d>0);
if((a<c)and(b<d))or((a<d)and(b<c))then write('Yes!')
else write('No!');
readln
end.

uses crt;
var a:array[1..100] of integer;
    n,i,j,x,mx:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
for i:=1 to n-1 do{отсортируем массив по убыванию}
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
mx:=0;
for i:=1 to n -1 do
if a[i]=a[i+1] then{нашли 2 первых одинаковых}
 begin
  mx:=a[i];{это макс}
  break;{дальше не ищем}
 end;
writeln('Max >1 raza = ',mx);
readln
end.

 uses crt;
 var
   i,f,k,l,o:integer;
   source,m:string;
   E:array[1..100] of real;
begin
  clrscr;
  Readln(source);  
  i:=1; f:=0;
  while i<=length(source) do
  begin
    if source[i] in ['0'..'9','-','+'] then
      begin
        if source[i] in ['+','-'] then m:=source[i] else m:='';
        if source[i] in ['+','-'] then k:=i+1 else k:=i;
        l:=1;
        while (k+l<=length(source)) and (source[k+l] in ['0'..'9']) do inc(l);
        m:=m+copy(source,k,l);
        f:=f+1;
        val(m,E[f],o);
        i:=k+l-1;
      end;
    i:=i+1;
  end;
 for i:=1 to f do
  if (frac(E[i])=0) and (E[i]<>0) then writeln(E[i]:6:2,' Cheloe') else writeln(E[i]:6:2,' Veshestvenno');
  readln
 end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,l:byte;
    sm,b:real;
begin
clrscr;
randomize;
writeln('Исходный массив:');
write('Количество строк n=');
readln(n);
write('Количество столбцов m=');
readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
{вычисление сумм в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  sm:=0;
  for j:=1 to m do
  sm:=sm+a[i,j];
  a[i,m+1]:=sm;
 end;
{перестановка строк по неубыванию сумм(по последнему столбцу)}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,m+1]>a[l,m+1] then
for j:=1 to m+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по неубыванию сумм:');
writeln('Сумма':(m*5+8));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:1)
  else write(a[i,j]:5:1);
  writeln;
 end;
readln
end.

uses crt;
const ds=['0'..'9',' ','e','E','+','-']; {допустимые символы}
var s,s1:string;
    k,i,t,c1,c2:integer;
    f:real;
begin
clrscr;
repeat
writeln('Строка:');
readln(s);
k:=0;
if pos(' ',s)=0 then
  begin
   writeln('В строке нет пробела! Повторите ввод.');
   k:=1;
  end;
if pos(' ',s)=1 then
  begin
   writeln('Пробел стоит первым! Повторите ввод.');
   k:=1;
  end;
for i:=1 to length(s) do
if not(s[i] in ds)then
 begin
  writeln('Введены недопустимые символы! Повторите ввод.');
  k:=1;
  break;
 end;
until k=0;
s1:=copy(s,1,pos(' ',s)-1);{копируем начало строки до первого пробела}
val(s1,t,c1);{пытаемся преобразовать в целое число}
if c1=0 then{если код ошибки=0, то целое число}
 begin
  writeln('Это целое число');
  readln;
  exit;
 end
else val(s1,f,c2);{иначе пытаемся преобразовать в вещественное число}
if c2=0 then writeln('Это вещественное число'){если код ошибки=0}
else writeln('Это не число');{иначе это не число}
readln
end.