составить программу для решения задачи:задайте целое число;определите,
кратно ли оно 10.

beginvar     x,a:integer;write('Напишите число: ');readln(x);writeln(x);a:= 10 div x;if (a>=10) then writeln('Число кратное десяти')elsewrite('Число не кратно десяти');end.