нужна помощь.кто хорошо разбирается в паскале

1
var M : array [1..10] of Integer;
N : Byte; S : Integer;
begin
Sum := 0;
for N := 1 to 10 do begin Write('M[', N, '] = '); ReadLn(M[N]); Sum := Sum + M[N]; end;
WriteLn('Среднее арифметическое ', Sum/10:6:2);
end.
2
var A, B : Integer;
begin
Write('Введите через пробел A и B : '); ReadLn(A, B);
if A mod B = 0 then WriteLn('Является. ') else WriteLn('Не является. ');
end.
3
var N, J : Integer;
begin
Write('Введите N = '); ReadLn(N);
for J := 10 to 99 do if (J div 10)*(J div 10) + (J mod 10)*(J mod 10) = N then WriteLn(J);
end.
4
const Size = 100;
var N : Byte; X, Y, S : array [1..Size] of Real;
begin
Write('Введите N = '); ReadLn(N);
for N := 1 to 10 do begin Write('X[', N, '] = '); ReadLn(X[N]); end;
for N := 1 to 10 do begin Write('Y[', N, '] = '); ReadLn(Y[N]); end;
WriteLn('Сумма векторов X и Y : ');
for N := 1 to 10 do begin S[N] := X[N] + Y[N]; Write(S[N]:4:2, ' '); end; WriteLn;
end.

Для этого не надо хорошо разбираться в Паскале. Для этого надо чуть-чуть разбираться в Паскале.
Например, вторая задача.
var a,b:integer; begin readln(a,b); writeln(a mod b=0); readln end.

Тут думаю, даже те кто плохо разбирается - помогут. Задачи элементарные