1. Определите функциональное назначение полей карточки запроса. 2. Как осуществить запрос одновременно по нескольким полям разных таблиц?
3. Придумайте запрос базе данных Фирмы.
4. Как найти наибольшее (наименьшее) значение числового поля?
5. Какая существует связь между Web-страницей и базой данных? Напишите как вы это поняли для себя.

1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:

//Вариант с циклом repeat
var
  a, min: integer;

begin
  min := 555555;
  repeat
    readln(a);
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
  until a = 0;
  writeln(min);
end.

//вариант с циклом while
var
  a, min: integer;

begin
  min := 555555;
    readln(a);
    while (a>0) or (a<0) do begin
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then
      min := a;
      readln(a);
   end;  
  writeln(min);
end.

В запись student добавляете новое поле kurs,
Type student = recordLastName: string ; bal: array [1..5] of integer; 
kurs: integer;average: real end;
В цикле по студентам добавляете ввод курса
with pupil[i] do begin
Write ('Введите фамилию студента №', i ,': '); 
Readln (LastName);
 Write('Введите курс '); Readln(kurs);
В конце программы изменяете вывод
writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4');
For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then 
write (pupil[i].LastName,',  ');