Вывести на экран первые четыре числа, кратные s и больше x. - Turbo Pascal

Формулировка задачи:

Вывести на экран первые четыре числа, кратные s и больше x. Натуральные числа s и x пользователь вводит с клавиатуры.

Решение задачи: «Вывести на экран первые четыре числа, кратные s и больше x.»

Листинг программы

var s,x,a,k:integer;
begin
writeln('Введите натуральные числа s,x');
readln(s,x);
a:=x+1;
while a mod s<>0 do a:=a+1;
write(a,' ');
for k:=1 to 3 do
 begin
  a:=a+s;
  write(a,' ');
 end;
end.

Объяснение кода листинга программы

В начале кода объявляются переменные s, x, a и k типа integer.
Затем выводится сообщение для ввода натуральных чисел s и x.
Переменная a инициализируется значением x+1.
Затем запускается цикл while, который выполняется до тех пор, пока a не станет кратным s без остатка.
После выхода из цикла while выводится значение переменной a.
Далее идет блок for, который выполняется от 1 до 3 (порядок не важен).
Внутри блока for переменная a увеличивается на s.
Затем выводится значение переменной a.
Цикл for завершается после выполнения всех трех итераций.
Код заканчивается.