Срочно надо решить задачи в паскале!!!!!

[Lenochka082]

Люди ,отзовитесь!!!! один день остался! не могу сделать задачи в Паскале!!!!!! Помогите!!! Вот собственно задачи:
1.дано натуральное число.
1)найти количество цифр данного числа.
2)найти количество трехзначных чисел,сумма которых равна А, а само число заканчивается цифрой В.(А и В вводятся с клавиатуры).

2.Пусть 6 населенных пунктов обозначены номерами от 1 до 6(величина К), а 5 кандидатов - номерами от 1 до 5 (величина n). количество голосов, набранных кандидатами в каждом пункте , определяется формулой
аKn=random(10i+50),
где i- номер варианта( вариант 3). Вывести на экран таблицу результатов голосования, где значения в строках - данные населенных пунктов, а в столбцах - данные по кандидатам. Создать одномерный массив с искомыми данными.Кто из кандидатов набрал максимальное,а кто минимальное количество голосов в четвертом населенном пункте??????



Пожалуйста помогите!!!!!!!!!!!!!!!!!!!

[xxxPascalxxx]

1)

var f,n,c:integer;
begin
readln(f);
n:=0;
repeat
c:=f div 10;
f:=c;
n:=n+1;
until f=0;
writeln(n);
readln;
end.

А 2) задание относится всё к тому же натуральному числу или просто все трёх значные числа?

[xxxPascalxxx]

Если речь идёт просто овсех трёх значных числа, то вот код

var a,i,j,n,b,c:integer;
    g:array [1..999] of integer;
    k:array [1..999] of integer;
begin
readln(a);
readln(b);
n:=100;
 for i:=1 to 900 do
  begin
   k[i]:=0;
   g[i]:=n;
   n:=n+1;
  end;

for i:=1 to 900 do
 for j:=i to 900 do
  if (g[i]+g[j]=a) and(a mod 10=b) and (i<>j) then
   k[i]:=1;
 for i:=1 to 900 do
  if (k[i]=1) then
   c:=c+1;

writeln(c);
readln;
end.

[maladoy]

Program mas;
uses crt;
var a:array[1..6,1..5] of real;
b:array[1..6] of real;
i,j,imax,imin:integer;
begin
for i:=1 to 5 do
for j:=1 to 6 do
begin
randomize;
a[i,j]:=random(80);
end;
for j:=1 to 5 do
b[j]:=a[j,4];
min:=b[1];imin:=1;
max:=b[1];imax:=1;
for j:=1 to 5 do
begin
if b[j]>max then begin
max:=b[j];imax:=j; end;

if b[j]<min then begin
min:=b[j];imin:=j; end;
end;
writeln('maximum:',imax,' kandidat');

writeln('minimum:',imin,' kandidat');
writeln('tablica resultatov:');
For i:=1 to 5 do
For j:=1 to 6 do
Begin
GotoXY(i*4,j*4);
Write(a[i,j]:4:2);
End;


end.