Помогите по паскалю

1 задача

program num1;
Var a:array [1..12] of integer;
k, j :integer;
begin
for j:=1 to 12 do
begin
a[j]:=Random(51);
end;
writeln('Исходные числа: ');
for j:=1 to 12 do
write(a[j], ' ');
writeln;
k:=0;
for j:=1 to 12 do
if a [ j ] mod 2 <> 0 then k:=k+1;
writeln('Количество нечетных чисел= ', k);
end.

2 задача

program num2;
Var a:array[1..15] of integer;
j,k, min:integer;
begin
writeln('Введите 15 чисел ');
for j:=1 to 15 do
readln(a[j]);
min:=a[1]; k:=1;
for j:=2 to 15 do
if a[j]< min then min:=a[j];
writeln('Минимальное число= ', min);
end.

3 задача

program num3;
Var j,n :integer;
p, s:real;
begin
writeln('Введите n ');
readln(n);
p:=1;
for j:=1 to n do
p:=p*j; {вычисление n!}
for j:=1 to n do
s:=s+1/p;
write('Сумма ', n, ' членов ряда равна ', s:2:2);
end.

4 задача

program num4;
Var a, x, y, m :integer;
begin
write('Введите число ');
readln(x);
m:=x;
y:=0;
while x <> 0 do
begin
a:=x mod 10; {последняя цифра}
y:=y*10+a; {строим палиндром}
x := x div 10; {отбрасываем последнюю цифру}
end;
if m=y then writeln('Число ', m, ' является палиндромом')
else writeln('Число ', m, ' не является палиндромом')
end.

5 задача
program num5;
Var a, x, s, m :integer;
begin
write('Введите число ');
readln(x);
m:=x;
s:=0;
while x <> 0 do
begin
a:=x mod 10; {последняя цифра}
s:=s+a;
x := x div 10; {отбрасываем последнюю цифру}
end;
writeln('Сумма цифр числа ', m, ' = ', s)
end.

6 задача

program num6;
Var a, x,y, k, m :integer;
begin
write('Введите число ');
readln(x);
m:=x;
k:=0;
write('Введите заданную цифру ');
readln(y);
while x <> 0 do
begin
a:=x mod 10; {последняя цифра}
if a=y then k:=k+1;
x := x div 10; {отбрасываем последнюю цифру}
end;
writeln('Цифра ', y, ' встречается в числе ', m,' ', k, ' раз (a).')
end.

Ну и что ты их перечисляешь? Работай, набирай код, смотри на результаты. А иначе зачем все это?

Лол, мне больше нечего добавить!

Если никто не напишет решения, то пиши в личку

эээ.... да тут фрилансом попахивает.... совесть то есть? знаний нет - это точно.

Ну, ты бы хоть не писал все в одной куче. Кто ж тут все ответы сразу выложит? Разбей хотя бы на части.

Решение первой задачи

const n=12;
Var
mas:array[1..n] of byte;
k,i:byte;
Begin
k:=0;
for i:=1 to n do
Begin
mas:=random(51);
if mas mod 2 =1 then begin
inc(k);
write(mas:3)
end;
end;
WriteLn;
Write('Нечетных чисел=',k);
End.

блин для себя то я тут все решу кроме 6, а смысл мне время терять просто так, вылаживай по одной или сам решай а где что не получилось тебе исправят.
(вообще все задачи на массивы и циклы 1 level )