программа генерирует случайное двузначное число до тех пор ,пока не найдется число кратное 5. после чего на экран выводится количество попыток генерации

var k,n:integer;begin;repeatk:=k+1;n:=random(10,99);until n mod 5=0;writeln('Число:',n);writeln('Попытки:',k);end.