Если в паскале
program v1;
var n:integer;
begin
repeat
writeln('Ведите число:');
readln(n);
until n mod 5 = 0;
writeln('Число кратное 5');
end.
