1)
Введите 5 студентов и 5 предмета с оценками. Подсчитайте общую сумму . При количестве меньше – "стипендию не получает". Если в пределах от 15 до 20 - "обычная стипендия", Если от 20 до 23, то "повышенная стипендия", от 23 до 25 - "максимальная стипендия".
2)
Введите 5 студентов и рядом запишите количество конкурсов (от 0 до 5), в которых принял участие студент, а рядом в столбце размер базовой стипендии = 550 р., . Произведите расчет стипендии: если принял участие или в 1 или в двух конкурсах - то получает прибавку к базовой стипендии = 100 р., если либо в 3 либо в 4 - то получает прибавку в 250 рублей, если участвовал свыше 5 конкусов - то получает двойную стипендию, в противном случае не получает ничего - только базовую стипендию.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.  

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.