Сергей Кузнецов
Помогите с домашним по информатике!!!
Программа:
Uses GraphABC;
var sl:string;
begin
writeln ('Введи слово ');
readln(sl);
TextOut (100,100,sl);
end.
Измените программу так, чтобы цвет текста задавался случайно (используйте функцию RGB).
Функция random(N) генерирует произвольное число в промежутке [0..N]. Измените команду TextOut (100,100,sl) на TextOut (random(100),random(100),sl). Запустите программу несколько раз.