Дано 10 чисел. Вывести 4 числа начиная со второго.

varmas:array [1..10] of integer;i:integer;beginfor i:=1 to 10 doread(mas[i]);for i:=2 to 5 dowrite(mas[i],' ');end.