4. Var s,k:integer;


begin


s:=123;


For k:=10 downto 3 do s:=s-k;


writeln(s);


end.
помогите