В паскале дано число, если оно кратно 5, то умножить его на 10. Написать программу.

program zz1;

var a:integer; / / задаем переменную целого типа

begin

write (' введите заданное число '); / / вводим с клавиатуры число

read (a);

if (a mod 5 = 0) / / проверяем на кратность, если число при деление на пять дает в остатке ноль, то

then a:=a * 10; / / умножаем исходное число на 10

write (' полученное в результате число = ', a); / / выводим ответ

end.