[Dinka]

1. не вижу квадратного уравнения. написана только степенная и синусоидальная функции.
2.
program lab(output);
var
A: array[0..10, 0..10] of real;
i,j: integer;
begin
writeln('Acckij massiv A[11,11]');

for i:=0 to 10 do
begin
for j:=0 to 10 do
begin
A[i,j]:=4*(3.5-i)-1.5*j*j+20*cos(i*j);
write(A[i,j]:10:2);
end;
writeln();
end;
end.