Pleaze!Решите хоть што нибудь Опции

[-RamZes-]

Pleaze!!!Решите хоть што нибудь очень надо!!!!! буду очень благодарен!!!
1.Дано трехзначное число(произвольное). Найти произведение цифр этого числа.
2.Известны отметки n-студентов в сессию (3 экзамена), подсчитать сколько отличников(While).
3.На соревнованиях по прыжкам в длину и в высоту получено 2 массива результатов. Определить три лучших и три худших результата (Заполнение RND).
4.Написать программу, формирующую массив (RND) и определяющую в нем строку с максимальной суммой элементов, а в ней минимальный по величине элемент.
5.Известны оценки каждого студента из группы по двум экзаменам. Определить среднюю оценку группы за все экзамены. Определить кол-во студентов, получивших двойки.

[Michael_Rybak]

Первая:

var i: integer;
begin
  Readln(i);
  Writeln(i mod 10 * (i div 10 mod 10) * (i div 100));
end.

[Гость]

Первая:

var i: integer;
begin
  Readln(i);
  Writeln(i mod 10 * (i div 10 mod 10) * (i div 100));
end.

Огромное спасибо!!!!! Реши еще что нибудь если не очень трудно, плиз

[Michael_Rybak]

Типа такого:

var a, b, c, ans: integer;
begin
  ans := 0;
  while true do begin
    Writeln('Введите 3 оценки или 0 0 0 для окончания ввода');
    Readln(a, b, c);
    if a = 0 then
      break;
    if (a = 5) and (b = 5) and (c = 5) then
      ans := ans + 1;
  end;
  Writeln('Количество отличников равно ', ans);
end.

Хотя бы с сортировкой сам разберись по форуму.