Процедуры и функции. Паскаль

[andronova]

Помогите, пожалуйста решить. Я совсем незнаю Паскаль.
1. Найти минимальное из 5 чисел. В подпрограмме из 2 чисел.
2. Выбрать большие корни квадратных уравнений x^2+a*x+b=0 и c*y^2-dx-f=0
3. Составить программу подсчёта числа чётных цифр используемых в записи n-значного числа.
Большое спасибо всем, кто откликнется!

[Arkuz]

Задача 3.

program Project1;
var
  s:string;
  d,tmp,k,i,code:longint;
begin
  write('Vvedite chislo: ');
  readln(d);
  k:=0;
  Str(d,s);
  for i:=1 to length(s) do
    begin
      Val(s[i],tmp,code);
      if (tmp mod 2) = 0 then inc(k);
    end;
  writeln('Chisli chetnih cifr = ',k);
  readln;
end.

Задача 1:

program Project1;
const
  n = 5;
var
 i,tmp,a,b:integer;
 mas: array [1..n] of integer;

function find(var aa; var bb): integer;
begin
  if a<b then
  begin
    writeln(a,'<',b);
    result:=a;
  end;
  if b<a then
  begin
    writeln(b,'<',a);
    result:=b;
  end;
end;

begin
  for i:=1 to n do
    begin
      write('Vvedite mas[',i,']: ');
      readln(mas[i]);
    end;

  tmp:=mas[1];
  for i:=1 to n do
    begin
       if mas[i]<=tmp then tmp:=mas[i]
                      else;
    end;
  writeln('Menshee iz ',n,' chisel = ',tmp);
  write('Vvedite a: ');
  readln(a);
  write('Vvedite b: ');
  readln(b);
  writeln('Menshee iz 2 chisel = ',find(a,b));
  readln;
end.

[MaTBeu]

Остальное думайте сами и ищите на форуме.