C клавиатуры вводится число x. Если число x=1, экран выводит сообщение "красный" x=2, то "зеленый" x=3, то "синий"
(Pascal)

Пример работы: [на фото].

Var X: Integer;

begin

Write('Введите число Х:');

Readln(X);

if X = 1 then Writeln('Красный')

else If X = 2 then Writeln('Зелёный')

else Writeln('Синий');

Readln;

end.