4 вариант с подробнастями даю

Однажды в одной маленькой комнате жили кровать, стол , стул , ковер , шкаф и монитор . Да вот только была еще мышка но с ней не дружили .Она всегда была одна . Однажды она загрустила . ее у видел монитор и сказал ,
- Что ты горюешь мышка?
- Никто со мной не дружит , не с кем мне дружить я слишком маленькая .
- Хочешь я буду твоим другом?
- Ты же большой . А я маленькая и ненужненькая .
- Без разницы маленькая ты или большая дружбе нету предела
-Правда?
-Конечно
С тех пор монитор и мышка были лучшими друзьями

{1}
var
    i, n, s: integer;

begin
    i := 0;
    writeln('Введите последовательность чисел,оканчивающихся отрицательным числом');
    repeat
        readln(n);
        if n > 0 then begin
            s := s + n;
            i := i + 1;
        end;
    until n < 0;
    writeln(s / i);
end.

{2}

var
    i, n: integer;

begin
    i := 0;
    writeln('Введите последовательность чисел,оканчивающихся 0');
    repeat
        readln(n);
        if n <> 0 then
            i := i + 1;
    until n = 0;
    writeln(i);
end.