Помогите решить задачки по Паскалю
 

Нам дали лабораторную работу состоящую из 11 задачек...2 из них своими усилиями (с трудом правда=)) смогла решить,а остальные не могу...Если есть у кого возможность помогите ПЛЗ...

1. Задано натуральное число a. Заканчивается ли оно на 0?
2. Найти все делители для заданного числа n.
3. Дано натуральное число n.Вычислить, входит ли цифра 3 в запись числа n.
4. Написать программу поиска четырёхзначного числа, которое при делении на C даёт в остатке B, а при делении на B даёт в остатке D.
5. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти произведение элементов стоящих на нечётных позициях
6. Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении.
7. Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.







Буду оч,оч,оч,очень благодарна за помощь!!!Спасибки заранее!))

type
cf : set of '0'..'9';
var
s:string[30];
cifr:cf;
i,k:integer;
begin
readln(s);
cifr:=['0','1','2','3','4','5','6','7','8','9'];
k:=0;
for i:=1 to length(s)
if s[i] in cifr then k:=k+1;

writeln (k);
end.

var
a:real;
begin
if a mod 10 = 0 then writeln ('da') else writeln (net);
end.

var
n,i:integer;

begin
readln(n);
writeln('Все делители числа N');
for i:=1 to n do
if n mod i = 0 then writeln(i);
end.

var
i,c,b,d:integer
begin
readln(c,b,d);
for i:=1000 to 9999 do
if (i mod c = b) and (i mod b =d) then writeln(i);
end.

var
mas:array [1..100] of integer;
proizv:longint;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);

proizv:=1
for i:=1 to n do
if i mod 2 <> 0 then proizv:=proizv*a[i];

writeln(proizv);

end.

var
fl,n,i:integer;
s:string[5];
begin
readln(n);
str(n,s); {стандартная процетудара преобразует значиние числа в его строковый вид}
fl:=0;
for i:=1 to length(s) do
if s[i]='3' then fl:=1;

if fl=1 then writeln('входит') else writeln('не входит');

end.

bubuka
Мне лень сегодня думать, мне начальство на работе все мозги в..ло

var
a,b:array [1..50,1..50] of integer;
i,j,n:integer;
begin
readln(m);
for i:=1 to m do
for j:=1 to m do
readln(a[i,j]);

for i:=1 to m do
for j:=1 to m do
b[j,i]:=a[i,j];

writeln('Вывод повернутой матрицы');

for i:=1 to m do
begin
for j:=1 to m do
write(b[i,j],' ');
writeln;
end;

end.

Большое спасибо всем кто помог и хотел помочь мне сделать эти задания!!!))Чтоб я без вас делала!!!))

Кстати я тоже учусь в МЭСИ))