Тебе две программы или одну?// Язык Pascal Var i : integer;Beginfor i:= 5 to 20 writeln(i);for i:=45 to 60 writeln(i);end.Да, я серьезно, это будет работать. Это две задачи в одной. Поползут цифры в столбик, с 5 до 20, потом резко с 45 до 60, а потом программа закроется