1.Найдите значение переменной x после выполнения фрагмента программы:

var x:integer;

begin

x:=2;

x:=2*x-5;

x:=x+10;

Write(x);

end.

1) 13; 2) 9; 3) 5; 4)11.

2. Запишите значения элементов массива, сформированного следующим образом:

for i:=1 to 8 do a[i]:=i*i

i 1 2 3 4 5 6 7 8

a[i]