Question

Всем привет, нужен перевод с Паскаля на КуМир.

Program dsadas
var i,l,h,g: integer;
A: Array[1..101] of integer
begin
For i:=1 to 100 do
begin l:=random(41)-20
A[i]:=4
If l<0 then h:=h+1
If l>0 then g:=g+1
end
Writeln('Количество отрицательных чисел:',h);
Writeln('Количество положительных чисел:',g);
end