Короче дали мне задачку написать
Она выдает ошибку думаю детскую но не могу исправить(((
Program A1;
Type Mas=array[1..3] of real;
Const x: Mas=(-2.2,5,1);
y: Mas=(-1,0,2);
a:array[1..9] of real=(1.3,5,1,2,3.2,1,6,7,8);
Var c,d,sum1:real;
Procedure B(x,y,a:Mas);
begin
c:=x[1]*a[1];
d:=y[1]*a[1];
end;
Begin
sum1:=c+d;
Writeln('Сумма',sum1);
end.