решите что-нибудь из этого на паскале заранее

// PascalABC.NET

begin

 var (СупВначале, Комната, СупПодать) := (100, 22, 60);

 var (Суп, Время) := (real(СупВначале), 0);

 repeat

   Время += 1;

   Суп -= 0.1 * (Суп - Комната)

 until Суп <= СупПодать;

 Print(Время)

end.