Решите задачу на языке паскаль

1) program name;
uses crt;
const N=10; {вместо 10 введи размер своего массива}
var a:array [1..N,1..N];
i,j:integer;
begin clrscr;
for i:=1 to N do
for j:=1 to N do begin
a[i,j]:=random (100); if i=j then a[i,j]:=0; {когда i=j - это все элементы главной диагонали}
writeln ('a[',i,',',j,']=',a[i,j]) ;
end;
readkey;
end.

2)program name;
uses crt;
var s:string;
k:integer;
begin clrscr;
k:=0;
readln(s);
for i:=1 to length(s) do {length(s) - функция, определяет сколько символов в строке}
if (s='!') or (s= '?') or (s= '.') then k:=k+1;
writeln (k);
readkey;
end.

3) program name;
uses crt;
cоnst N=10; {вместо 10 введи размер своего массива}
var a:array [1..N,1..N];
i,j:integer;
begin clrscr;
for i:=1 to N do
for j:=1 to N do begin
a[i,j]:=random (100);
writeln ('a[',i,',',j,']=',a[i,j]) ;
end;
{здесь мы заполнили массив случайными числами и вывели его на экран}
for i:=1 to N do
for j:=1 to N do
if i<>j then a[i,j]:=a[i,j]+a[i,i];
{теперь еще раз пробегаем по массиву... если i=j, то есть элементы главной диагонали мы не трогаем, если нет (<>), то прибавляем к каждому элементу значение элемента главной диагонали соответствующей строки }
writeln ('poluchivshiisya massiv');
for i:=1 to N do
for j:=1 to N do
writeln ('a[',i,',',j,']=',a[i,j]) ;
{выводим получившийся массив}
readkey;
end.

4) program name;
uses crt;
const N=100;
K=3 {вводишь нужные значения сюда}
var ;
i,s:integer;
begin clrscr;
s:=0;
for i:=1 to N-1 do
if i mod k =0 then s:=s+i; (mod- остаток от деления. например 3 mod 2 =1, 4 mod 2=0, 15 mod 4= 3; в данном случае mod=0, т. е. мы ищем числа, которые нацело делятся на K}
writeln (s);

readkey;
end.

Стучи в агент.

Ты у цветных языком своим поводи

Халява принимает угрожающие размеры...

Ну и нагласть иу народа, посмотри в учебниках по паскалю там есть подобные задачи и их решения