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

Question

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

Answer 1

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