Задача про деление с остатком

[Veryn4ik1993]

Найти наибольшее 4-значное число, которое делится на 21?
можно так или нет?

program z4;

const
  b = 21; a=9999;

procedure division(a,b: integer);

begin
  
  while a >= b do 
  begin
    a := a - b; 
  end;
 writeln('r =', 9999-a);
end;

begin
  division(a,b);
end.

[eoln]

21 * 9999 div 21

[Veryn4ik1993]

Мне нельзя использовать div и mod а только просматривать через эту процедурку

[Sciv]

можно так или нет?

Можно, но это только часть программы. Так, которая проверяет, делится ли число. Нужен еще цикл по четырехзначным числам.
Кроме того, у Вас явные пересечения имен переменных с именами объявленных констант - не есть гуд.

program z4;

const
  c = 21; a=9999; b=1000;

Function IsDiv(num, div_num: integer): boolean;
var temp: integer;
begin
  temp:=num;
  while temp>= div_num do temp:=temp-div_num;    //Собственно Ваша проверка
  IsDiv:=temp=0;            //Если остаток = 0 функция возвращает истину инача - ложь
end;

var i: integer;

begin
  for i:=a downto b do            //проходим циклом от большего числа к меньшему
    if IsDiv (i,c) then break;     //останавливаем цикл, как только находим первое число, делящееся без остатка
  writeln(i);
  readln;
end.