Задание

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