Помогите с задачей по информатике. Операторы repeat until и while


На олимпийских играх в соревнованиях по
стрельбе “участник № 1” сбил 25 тарелок, а “участник
№ 2” - 35 тарелок. В каждый следующий тур стрельба
первого участника улучшалась на 7%, а стрельба второго на 5% по сравнению с предыдущим днем. Через сколько туров один из участников победит, сбив больше 100
тарелок в день соревнования. Определите номер победителя.

Программа на языке Pascal

var

k,u,u1,u2:real;

begin

k:=1;

u1:=25;

u2:=35;

while (u1<100) or (u2<100) do

begin

u1:=u1+u1*0.07;

u2:=u2+u2*0.05;

k:=k+1;

end;

writeln('Количество туров:',k);

if u1>=100 then writeln(1) else writeln(2)

end.

ОТвет 23 тура первый участник