Помогите пожалуйста срочно надо!!!!!!!
Ответ: Var
i:integer;
begin
for i:=18 downto 1 do
writein (i)
Объяснение: