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

Program a1;
Var a:integer
Begin
Writeln ('Введите число');
Readln(a);
If a mod 5 =0 then writeln (a*10);
End.