Определить максимальное трёхзначное целое

число, которое нацело делится на 21.

Вывести значения: делимое число, остаток от деления на 21 и целое

частное для каждого шага алгоритма.

Отдельной строкой вывести ответ.
написать прогу в паскале

program X;varmax, i: longint;begin max:=0;for i := 100 to 999 do  begin    writeln('Делимое: ', i , ' Остаток: ' , i mod 21, ' Целое частное: ' , i div 21 );    if (i mod 21) = 0 then max := i  end;writeln('Ответ: ', max)end.