Составить программу, позволяющую получить словесное описание отметок (1 – плохо, 2 – неудовлетворительно, 3 – удовлетворительно, 4 – хорошо, 5 – отлично).

Var x,y,Rez: real;
Znak: char;
Begin
Write(‘Введите первое число: ’);
Readln(x);
Write(‘Введите второе число: ’);
Readln(y);
Write(‘Введите символ арифметической операции: ’);
Readln(Znak);
Case Znak of
‘+’: Rez :=x+y;
‘-‘: Rez :=x-y;
‘*’: Rez :=x*y;
‘\’: Rez :=x\y;
else writeln(‘Недопустимый ввод!’);
writeln(‘Результат вычислений: ’, Rez:7:4);
end.

Что надо переделать в этой проге, она очень похожа на мою задачу ? А то у меня всё ошибка выскакивает unknown identifer

To: Merlin
чем это она похожа? Где ты здесь ветвление увидел? Вот так - похоже:

var n: integer;
begin
  write('Введите оценку:'); readln(n);
  if n = 1 then writeln('плохо')
  else
    if n = 2 then writeln('неудовлетворительно')
    else
      if n = 3 then writeln('удовлетворительно')
      else
        if n = 4 then writeln('хорошо')
        else
          if n = 5 then writeln('отлично')
          else writeln('ошибка !!!');
end.

У нас лаб.работа называется так, я вижу что уже много опечаток учителя понаделали.

А эту задачу точно нельзя сделать через case of ?

Можно, но If лучше показывает само ветвление... Case его как бы скрывает...
Вот через Case:

var n: byte;
begin
  write('Введите оценку:'); readln(n);
  Case(n) Of
    1: writeln('плохо');
    2: writeln('неудовлетворительно');
    3: writeln('удовлетворительно');
    4: writeln('хорошо');
    5: writeln('отлично');
    Else writeln('ошибка !!!');
  End;
end.

Ну, и где по-твоему, заметнее ветвление?

Не знаю почему лаба называется " Алгоритмы ветвления ", но нам надо было делать только через case. Я нашёл свою ошибку, я присваивал n тип integer.
Спасибо за помощь.

А с чего ты взял что это ошибка ? Это как максимум недочет ...