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

Question

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

Answer 1

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