Написать программу, которая запрашивает у пользователя номер товара и выводит его название (не менее 5 товаров). Если пользователь указывает недопустимое число, то выво-дится сообщение "Ошибка ввода данных"

var n:integer; begin SetConsoleCp (1251); SetConsoleOutputCp (1251); writeln ('Введите номер товара'); Readln (n); if n = 1 then Writeln ('Название товара: Мягкая игрушка'); if n = 2 then Writeln ('Название товара: Конструктор Lego'); if n = 3 then Writeln ('Название товара: Pepsi'); if n = 4 then Writeln ('Название товара: Coca-Cola'); if n = 5 then Writeln ('Название товара: Sprite'); if n = 6 then Writeln ('Название товара: Fanta); if (n > 6) or (n < 1) then Writeln ('Ошибка ввода данных'); Readln; end.