АБ
Александр Брызгалов
Почему ввыдат 96 дней, вместо нужных 7?
program bolnoi;
var t:integer; k:real;
begin
t:=0; k:=50;
while k>=12 do
begin
k:=k-2*20/100;
t:=t+1;
end;
write('Через',t,'дней');
end.