Пожалуйста посчитайте пожалуйста7 вариантсрочнооооо!!!!!​

PascalABC.NET. Версия 3.5.1, сборка 2261 (4.11.2019)

var chislo,k,flag:integer;

begin

  k:=0; // счётчик попыток

  repeat

    readln(chislo);  // вводим число с каждым новым шагом цикла

    if (chislo mod 13 = 0) and (chislo mod 2 <> 0) then  

       flag:=1;  // если нужное условие выполнилось, флаг равен 1.

    k:=k+1;

  until (flag=1);  // цикл выполняется до момента пока флаг не станет 1.

  writeln('Было выполнено ',k-1,' попыток');

end.