Здравствуйте. Нам дана программа Pascal ABC Net:


var
i, n: integer;
sum, x: real;

begin
n := 7;
sum := 0.0;
for i := 1 to n do
if
begin
write(i, '-е число = ');readln(x);
sum := sum + x
end;
writeln('Выпадет ', round(sum/n));
readln();
end.

Нужно сделать так, чтоб окончательный результат программы заканчивался не числом, а словом. Суть изначальной программы выдать округлённое среднее арифметическое значение n чисел. А надо, если это значение равно одному из чисел 1,5,7,9,11,13,15, то результат был словом: "Красное", если же числовое значение равно одному из чисел 2,4,6,8,10,12,14,16, то результат был бы "Чёрное", а если значение равно числу 3, то результат "Зелёное". Даю 100 баллов за помощь!!!

А можешь написать скрипт, который будет определять цвет на сайте: https://easymoney.name/double ???

По каким нибудь алгоритмам

vari, n: integer;sum, x: real;beginn:= 7;sum:= 0.0;for i:= 1 to n do begin write(i, '-е число = ');readln(x); sum := sum + x end;writeln('Выпадет ', round(sum/n));case round(sum/n) of 1,5,7,9,11,13,15:    writeln('Красное'); 2,4,6,8,10,12,14,16: writeln('Чёрное'); 3: writeln('Зелёное'); else writeln('Неизвестный цвет'); end;readln;end.Пример:1-е число = 22-е число = 43-е число = 94-е число = 55-е число = 16-е число = 67-е число = 8Выпадет 5Красное