pascalabcnet/TestSuite/CompilationSamples/Case1.pas

// Оператор выбора
var x: integer;

begin
  writeln('Введите оценку (1..5): ');
  readln(x);
  case x of
    1: writeln('Единица');
    2: writeln('Двойка');
    3: writeln('Тройка');
    4: writeln('Четверка');
    5: writeln('Пятерка');  
  else writeln('Такой оценки нет');
  end;
end.