Нужно номер 2. программа на паскаль авс​

var

 cur_class, total: integer;

begin

 cur_class := 1;

 total := 12;

 while (total < 100) do

 begin

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

   cur_class := cur_class + 1;

 end;

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

end.