var
cur_class, total: integer;
begin
cur_class := 1;
total := 12;
while (total < 100) do
total := total + trunc((total / 100) * 25) + 4;
cur_class := cur_class + 1;
end;
write('Вову исключат в ', cur_class, ' классе');
end.
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.