ПОМОГИТЕ ПОЖАЛУЙСТА : Определите, что будет напечатано в итоге работы последующего

ПОМОГИТЕ ПОЖАЛУЙСТА :
Обусловьте, что будет написано в результате работы последующего куска программки:
var n, s: integer;
begin
n := 24;
s := 0;
while n lt;= 28 do begin
s := s + 20;
n := n + 2
end;
write(s)
end.