Найти произведение всех целых чисел, кратных 5, от а до а+5 - Turbo Pascal

Найти произведение всех целых чисел, кратных 5,от а до а+5

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

var a,p:integer;
begin
write('a=');
readln(a);
if a mod 5=0 then p:=a*(a+5)
else p:=a+(5-a mod 5);
write('P=',p);
readln
end.

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

Создается переменная a типа integer для хранения значения, введенного пользователем.
Создается переменная p типа integer для хранения результата произведения.
Выводится сообщение a=, чтобы пользователь мог ввести значение переменной a.
Считывается значение переменной a с помощью функции readln.
Проверяется, делится ли значение a на 5 без остатка. Если да, то выполняется произведение a и a+5. Если нет, то вычисляется разность между 5 и остатком от деления a на 5.
Значение p записывается в переменную p.
Выводится сообщение P=, чтобы пользователь мог увидеть результат.
Завершается программа.