Просто выделяй обе эти ячейки и растягивай их
Var i,j:integer;
mass1:array[1..10] of integer;
mass2:array[1..10] of integer;
begin
for i:=1 to 10 do begin
read(mass1[i]);
if mass1[i]=0 then begin
j:=j+1;
mass2[j]:=i;
end;
end;
for j:=1 to j do
write(mass2[j]:3);
end.<span>
</span>
Смотря откуда эта формула и как вы ее применяете
Похоже, что ПИ - просто функция без аргументов, т.е. ничего ставить не надо
Program Task;
Var a, b: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Среднее арифметическое: ', ((a + b) / 2):5:2);
ReadLn;
End.