Помогите с задачей по информатике.. . Пожалуйста...

На QBASIC:

DIM i AS INTEGER
DIM n AS INTEGER
DIM sum AS INTEGER
DIM mul AS INTEGER
DIM max AS INTEGER

n = 10

DIM a(n) AS INTEGER

CLS

RANDOMIZE TIMER

sum = 0
mul = 1

FOR i = 0 TO n
a(i) = INT(RND * 10 - 5)

PRINT a(i)

IF a(i) >= 0 THEN
sum = sum + a(i)
ELSE
mul = mul * a(i)
END IF
NEXT

PRINT "Summa ravna: "; sum
PRINT "Proizvedenie ravno: "; mul

IF sum > mul THEN
max = a(0)

FOR i = 1 TO n
IF a(i) > max THEN
max = a(i)
END IF
NEXT

PRINT "Maksimal'ny element: "; max
ELSE
PRINT "Summa ne bol'she proizvedeniya."
END IF

На Turbo Pascal:

Program Task;

Uses
Crt;

Const
N = 10;

Var
i: Integer;
Sum: Integer;
Mul: Integer;
Max: Integer;

A: Array[0..N] Of Integer;

Begin
ClrScr;

Sum := 0;
Mul := 1;

Randomize;

For i := 0 To N Do
Begin
A := Random(10) - 5;

WriteLn(A);

If A >= 0 Then
Begin
Inc(Sum, A);
End
Else
Mul := Mul * A;
Begin
End;
End;

WriteLn('Summa ravna: ', Sum);
WriteLn('Proizvedenie ravno: ', Mul);

If Sum > Mul Then
Begin
Max := A[0];

For i := 0 To N Do
Begin
If A > Max Then
Begin
Max := A;
End;
End;

WriteLn('Maksimal''ny element raven: ', Max);
End
Else
Begin
WriteLn('Summa ne bol''she proizvedeniya.');
End;

{ReadLn;}
End.

ну и на каком языке это надо сделать?

Язык программирования мог бы написать.. .
На pascal:

declare
A : array [1..60] of float;
summa :float;
proizv :float;
max :float;
begin
summa:=0;
proizv:=1;
max:=a[1];
for i:=1 to 60 do
begin
if a>=0 then summa:=summa+a
else proizv:=proizv*a;

if a>max then max:=a;
end;

if summa > proizv then
Writeln ( "max=" , max)
else Writeln ( "summa<=proizv");
end;