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

var r: longint; begin readln (r); if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно'); end.