Если в паскале

program v1;

var n:integer;

begin

repeat

 writeln('Ведите число:');

 readln(n);

until n mod 5 = 0;

writeln('Число кратное 5');

end.