Вывести кратные числа заданным - Pascal ABC

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

Написать программу , которая вводит отрицательные числа которые кратные 3 и 5 одновременно и когда вводим число 0 программа останавливается и выводит кратные числа

Решение задачи: «Вывести кратные числа заданным»

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

procedure Recc();
var
    x: LongInt;
begin
    Write('Input x='); ReadLn(x);
    if (x <> 0)
    then
    begin
        Recc();
        if ((x mod 3 = 0) And (x mod 5 = 0))
        then
            Write(' ', x);
    end
    else
        Write('Numbers:');
end;
 
begin
    Recc();
end.

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

В процедуре Recc() объявлена переменная x типа LongInt.
В процедуре считывается число с помощью функции ReadLn().
Проверяется, что число не равно нулю. Если это так, то вызывается сама же процедура Recc(), а затем проверяется условие для вычисления значения x mod 3 и x mod 5.
Если оба значения равны нулю, то число x является кратным и ему выводится пробел.
Если число x не равно нулю, но не является кратным 3 и 5, то выводится сообщение Numbers:.
В основной части программы вызывается процедура Recc().