program AverageNegativeEndingFive;
var
num, sum, count: integer;
average: real;

begin
sum := 0;
count := 0;

repeat
write('Введите число: ');
readln(num);

if (num < 0) and (num mod 10 = 5) then
begin
sum := sum + num;
count := count + 1;
end;

until num = 0;

if count > 0 then
begin
average := sum / count;
writeln('Среднее арифметическое отрицательных чисел, оканчивающихся на 5: ', average:0:2);
end
else
writeln('Отрицательных чисел, оканчивающихся на 5, не было введено.');
end.