Из ряда натуральных чисел от 1 до 2000 вычеркнули все числа, которые делятся на 2, затем все числа, которые делятся на 3, затем все числа, которые делятся на 5, а затем все числа, которые делятся на 7. сколько чисел осталось?

uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.

uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.

Проверено на Паскаль АВС

Program Dafnochka;
uses crt;
var
  r,sum: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число');
  writeln('(или введите 0 для конца последовательности) ');
  while r<>0 do
    begin
      write("Ввод:") ;  
      readln (r);
      sum:=sum+r;
      k:=k+1;  
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Среднее значение равно ',sum/(k-1));
end.