Z1

Program Z1;
Var
a: array[1..16] of integer;
i, al, am, il, im: integer;
Begin
al := 0;
am:= 0;
il:=0;
im:=0;
for i: 1 to 16 do
    a[i] := 5 + random(76);
for i:=1 to 16 do
    Begin
    if a[i] < 50 then
        Begin
        al := al+a[i];
        il:= il+1;
        end
    else
        begin
        am := am+a[i];
        im: im+1;
        end;
    end;
writeln("<50: ", al/il);
writeln(">50: ", am/im);
end.