99 баллов,Напишите пожалуйста программу в Паскаль abc ,
Медведь, впадая в зимнюю спячку, весил 200 кг. Каждый день во время сна он худеет на 1700г. Через сколько дней медведь проснется, если условием для выхода из зимней спячки является снижение веса на 50% от первоначального? Использовать цикл While.

спасибобольшое

Program n1;var t,a: real;k: integer;begina:=200;k:=0;t:=a;while(t>a/2) dobegint:=t-1.7;k:=k+1;end;write('через ',k,' дней');end.