Question

Дано двузначное число, определить, кратны ли единицы этого числа 5

Answer 1

var
a:integer;
begin
write('Введите двузначное число: ');
readln(a);
if a mod 5 = 0
  then writeln('Кратны')
  else writeln('Не кратны');
end.