Дано целое число. Если оно кратно 5, то вывести на экран

Решение задачи:
Код написан в программке PascalABC.NET.
var a, ostatok:integer;
begin
write(Введите целое число: );
readln(a);
if (a mod 5)=0 //Обретаем остаток от разделения целого числа на 5. Если он равен нулю, то введенное число кратно 5.
then begin //Остаток равен нулю.
writeln(Да);
writeln(Уменьшенное число в 5 раз: , a/5);
end
else begin //Остаток не равен нулю.
writeln(Нет);
writeln(Увеличенное число в 5 раз: , a*5);
end;
end.