Заполните массив A(25) по формуле A(i)=5*I-i/3

var a:array[1..25] of real;i:integer;beginfor i:=1 to 25 do5*i-i/3;for i:=1 to 25 dowrite(a[i]:5:2);end.