Что будет напечатано после выполнения следующего фрагмента программы:
a:=1;
s:=40;
while s > 4 do
begin
a:= a + 1;
s:= s - 10;
end;
write \( a \);