Для начала добавим возможность вывода трёх слов вместо двух. Для этого создадим константу для третьего слова sl3 = 'PHP' и объявим переменную для счётчика количества повторений var n, k1, k2, k3, x: integer;, обнулим переменную k3 := 0;, а в конце программы добавим строку для вывода результата для третьего слова writeln('Cлово ',sl3,' - ',k3);. Также нужно добавить ещё одно условие в цикле for (просмотрите внимательно на изменения в этом цикле). С помощью команды SetFontColor() установим цвет для каждого слова, а после завершения цикла восстановим цвет текста на чёрный.
uses GraphABC;
const sl1 = 'Pascal';
sl2 = 'Python';
sl3 = 'PHP';
var n, k1, k2, k3, x: integer;
begin
writeln ('Введи n ');
read(n);
writeln (n);
k1 := 0; k2 := 0; k3 := 0;
for var i := 1 to n do
begin
x := random(3);
if x = 0 then
begin
SetFontColor(clRed);
writeln(sl1);
k1 := k1 + 1;
end
else if x = 2 then
begin
SetFontColor(clBlue);
writeln(sl2);
k2 := k2 + 1;
end
else
begin
SetFontColor(clGreen);
writeln(sl3);
k3 := k3 + 1;
end
end;
SetFontColor(clBlack);
writeln('Cлово ',sl1,' - ',k1);
writeln('Cлово ',sl2,' - ',k2);
writeln('Cлово ',sl3,' - ',k3);
end.