Задание

Что будет напечатано после выполнения следующего фрагмента программы:

a:=1;

s:=40;

while s > 4 do

begin

a:= a + 1;

s:= s - 10;

end;

write ( a );