Составить блок-схему к программе:

[Алексей Шевченко]

Program V46_4;
uses crt;
var
p,m: array[1..6] of real;
a: array[1..9] of real;
j: integer;
c: real;
begin 
for j:=1 to 6 do read (m[j]);
c:=0;
for j:=1 to 9 do begin read (a[j]);
c:=c+a[j]; end;
writeln('новый массив P');
for j:=1 to 6 do begin
p[j]:=c-sqr(m[j]-a[j]);
write(p[j]:10:3); end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[McFrey]

ищи программу FCEditor