пожалуйста, необходимо помощь !! Номер 2. Программка на Паскаль АВС

var

 cur_class, total: integer;

begin

 cur_class := 1;

 total := 12;

 while (total lt; 100) do

 begin

   total := total + trunc((total / 100) * 25) + 4;

   cur_class := cur_class + 1;

 end;

 write('Вову исключат в ', cur_class, ' классе');

end.