Нужно заполнить целочисленный массив числами 1 - 10. Потом умножить каждый элемент массива на 2 и вывести что получилось на экран
var mas:array[1..10]of integer; i:integer; begin for i:=1 to 10 do begin mas[i]:=i; mas[i]:=mas[i]*2; write (mas[i]:3); end; end.