var
    x, y: array[1..100] of double;
    i, j, amount: integer;
    sumSinX, sumCosY, sumX : double;
begin
    write('Введите колличество x,y (целое число) или 0(как в задаче): '); readln(amount);

    if(amount <> 0) then begin
        for i:=1 to amount do begin
            write('X[', i, '] = '); read(x[i]);
            sumSinX := sumSinX + sin(x[i]);
            sumX := sumX + x[i];
            write('  Y[', i , '] = '); readln(y[i]);
            sumCosY := sumCosY + cos(y[i]);
        end;
    end else begin
        writeln('Введите 40 x-сов');
        for i:=1 to 40 do begin
            readln(x[i]);
            sumSinX := sumSinX + sin(x[i]);
            sumX := sumX + x[i];
        end;

        writeln('Введите 50 y-ков');
        for i:=1 to 50 do begin
            read(y[i]);
            sumCosY := sumCosY + cos(y[i]);
        end;
    end;

    write('z равно '); writeln((sumSinX + sumCosY) / sumX);

end.