Задание 7
Program zadacha; const n=365;
var
i,d,ves:integer;
begin
ves:=200000; // 200кг=200.000г весил до спячки
writeln('Половина веса медведя = ', ves/2,' грамм');
while (ves>ves/2) do begin
ves:=ves-1700; d:=d+1;
end;
writeln ('Медведь проснётся через ', d,' дней');
end.
