Нужна помощь

[KpeHDeJIb]

нужна помощь в решении нескольких задач:
1.Задано натуральное число п. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2,3,5.
2.Квадратная матрица М состоит из 6 строк, 6 столбцов. Вы¬честь из каждого ее элемента сумму элементов, расположенных на главной диагонали.

[Stilet]

1. Навскидку, хоть задание и с подвохом

for i:=0 to n do begin
 if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0) then writeln(i);
end;

[Plague]

Могу предложить следующее решение 1 задачи:

const m:array[1..8] of byte=(6,4,2,4,2,4,6,2);
var j:byte;
    l:boolean;
    a,n,i,k:int64;
begin
  readln(n);
  a:=1;
  i:=0;
  l:=true;
  while l do
    for j:=1 to 8 do
      begin
        a:=a+m[j];
        i:=i+1;
        if a>n then
          begin
            l:=false;
            k:=i;
            break;
          end;
      end;
  writeln(k);
end.

[puporev]

Задача 2.

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
begin
clrscr;
writeln('Ishodnaja matrica:');
sum:=0;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
        if i=j then sum:=sum+a[i,j];
      end;
    writeln;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=a[i,j]-sum;
        write(a[i,j]:4);
      end;
    writeln;
  end;
readln
end.

Заодно рабоче-крестьянский вариант задачи 1.

uses crt;
var n,i,k:word;
begin
clrscr;
write('n=');readln(n);
k:=0;
for i:=1 to n do
if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0) then
    begin
     k:=k+1;
     write(i,' ');
    end;
writeln;
writeln('Kolichestvo chisel=',k);
readln
end.

[Plague]

колхоз рулит...