напишите кому не сложно пару программ на паскале

[miss_catty]

помиге мне пожалуйста срочно!я недавно приехала с соревнований, а преподша не вошла в моё положение и задала мне сверх нормы.....прошу кому не сложно выручите меня (обычный паскаль. НЕ ТУРБО)
Matrix26. Дана матрица размера M x N.Найти номер столбца с наименьшим произведением элементов и вывести данный номер, а так же значение наименьшего произведения.
Matrix19.Дана матрица размера M x N.Для каждой строки матрицы найти сумму её элементов.
Proc26.Описать функцию IsPower5(K) логического типа, возвращающую TRUE, если целый параметр К (>0) является степенью числа 5, и FALSE в противном случае. С ее помощью найти кол-во степеней числа 5 в наборе из 10 целых положительных чисел.
Proc19.Описать функцию RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 — вещественные , R1 > R2)..С ее помощью найти площади трёх колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S = Пи*R2 В качестве значения Пи использовать 3.14

з.ы.Заранее благодарю(если не сложно сделайте хотя бы две сегодня)чмафф всем

[Hacker19_90]

program forum2;
uses crt;
const
    n = 4;
    m = 5;
var
    matrix: array[1..m, 1..n] of integer;
    i, j: byte;
    sum: integer;
begin
    clrscr;
    Writeln ('Введите матрицу');
    for i :=1 to m do
        for j := 1 to n do
            Read(matrix[i,j]);
    Readln;
    for i :=1 to m do
    begin
        sum := 0;
        for j := 1 to n do
            Inc(sum, matrix[i,j]);
        Writeln ('Сумма ', i, ' -той строки равна , sum);
    end;
    Readkey;
end.

program forum1;
uses crt;
const
    n = 4;
    m = 5;
var
    matrix: array[1..m, 1..n] of integer;
    i, j: byte;
    pr, temp, num;: integer;
begin
    clrscr;
    Writeln ('Введите матрицу');
    for i :=1 to m do
        for j := 1 to n do
            Read(matrix[i,j]);
    Readln;
    pr := 1;
    for i :=1 to m do
    begin
         pr := pr*matrix[i,1];
    end;
    num := 1;
    for j := 2 to n do
    begin
        temp := 1;
        for i := 1 to m do
            temp := temp*matrix[i,j];
        if temp < pr then
        begin
             pr := temp;
             num := j; 
        end;
    end;
    Writeln ('Минимальное произведение равно', pr, 'в столбце', num);
    Readkey;
end.

P.S.: Stilet предупреждай хотя бы ато я думал у меня глюки!! ПРишлось сообщение 5 редактировать!

[Mad_Cat]

Описать функцию RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 — вещественные , R1 > R2)

function RingS(r1,r2:real):real;
begin
RingS:=abs(3.14*(r1*r1-r2*r2));
end;

Описать функцию IsPower5(K) логического типа, возвращающую TRUE, если целый параметр К (>0) является степенью числа 5, и FALSE в противном случае.

function ispower5(k:integer):boolean;
var k1:integer;
begin
k1:=1;
while k1<k do
k1:=k1*5;
if k=k1 then ispower5:=true
else ispower5:=false;
end;