Дано целое число. Если оно кратно 5, то вывести на экран сообщение: «Да» и уменьшить число в 5 раз. В противном случае

Решение задачи:Код написан в программе PascalABC.NET.var a, ostatok:integer;beginwrite(\'Введите целое число: \');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.