1) a:array[1..7] of integer = (25, 24, 10, 60, 4, 100, -11)
или (если без значений)
a:array[1..7] of integer
2) a[5] = 4
3) a[a[5]] = a[4] = 60
Т=а, а=б б=т
думаю так тоде
Магнитные лазерные электронные
дискеты CD флеш карта
магнитный жесткий твердотельный жесткий
диск DVD диск
Blu-Ray
var x,y:real;
begin
readln(x);
if x<=3 then y:=-5
else if x>3 then y:=2*x-4;
write('y = ',y);
readln;
end.