[Yurk@]

1.

Код:

var 
  N, i, proiz : integer;
begin
  proiz := 1;
  N := 1234; // для примера
  for i:=1 to Length(N) do 
    proiz := proiz * N[i];
  ShowMessage('Произведение = ' + IntToStr(proiz));
end;

2.

Код:

var
  V, V2, t, T1 : variant;
  S, S2 : variant; // растояния которые проедут каждый автомобиль
begin
  V := 54.9;
  V2 := 77.3;
  t := 1;
  T1 := 3;
  S := V * (t + T1);
  S2 := V2 * T1;
  if S2 >= S
  then
    ShowMessage('Догонит')
  else
    ShowMessage('Не догонит');
end;