Программу составить для решение . задать целое число и определить кратно ли оно 10 через turbo pascal

Program abc;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
if a mod 10=0 then Writeln('Кратно')
else Writeln('Не кратно');
end.