Всем! делаю карту в майнкрафт, как сделать меньше сердец? версия 1.14.4

Question

Информатика: Всем! делаю карту в майнкрафт, как сделать меньше сердец? версия 1.14.4

Nuriza2002 · Accepted Answer

{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.

MOGZ ответил