Pascal Case OF // Функция

[deadboy]

[
Работа с кейсами, сейчас попытаюсь объяснить что да как.

Program ANGROSE; // Название программы это не обязательно
Var a : integer; // Переменная(ые)
Begin // Начало кода
  write('Введите цифру: '); // Вывод сообщения на экран
  readln(a); // Вызов функции ввода текста/цифр
      case a of // Вызов функции case of // где a ваша переменная 
        0 : writeln ('Вы ввели ноль.'); 
        1 : writeln ('Вы ввели единицу.');
        2 : writeln ('Вы ввели двойку.');
        3 : writeln ('Вы ввели цифру три.');
        4 : writeln ('Вы ввели цифру четыре.');
        5 : writeln ('Вы ввели цифру пять.');
        6 : writeln ('Вы ввели цифру шесть.');
        7 : writeln ('Вы ввели цифру семь.');
        8 : writeln ('Вы ввели цифру восемь.');
        9 : writeln ('Вы ввели цифру девять.');
        10 : writeln ('Вы ввели цифру десять.');
            // 0 - 10 - ваши данные
        else writeln('Вы ввели цифру отрицательное число, либо слишком маленькое число десяти.'); // Можно добавить обратное, если есть желание не обязательно
      end; // Конец кода
end.

Ставьте плюсик, старался буду выкладывать работы получше, пишите критику и тому подобное !!))