// PascalABC.NET
begin
var (СупВначале, Комната, СупПодать) := (100, 22, 60);
var (Суп, Время) := (real(СупВначале), 0);
repeat
Время += 1;
Суп -= 0.1 * (Суп - Комната)
until Суп <= СупПодать;
Print(Время)
end.
// PascalABC.NET
begin
var (СупВначале, Комната, СупПодать) := (100, 22, 60);
var (Суп, Время) := (real(СупВначале), 0);
repeat
Время += 1;
Суп -= 0.1 * (Суп - Комната)
until Суп <= СупПодать;
Print(Время)
end.