Условия в Delphi

var
  zadach_resheno, ocenka: integer;
 
begin
  write('Введите оценку: ');
  readln(zadach_resheno);
  
  if zadach_resheno = 12 then
    ocenka := 5
  else
  if (zadach_resheno <= 11) and (zadach_resheno >= 8) then
    ocenka := 4
  else
  if (zadach_resheno <= 7) and (zadach_resheno >= 3) then
    ocenka := 3
  else  
  if (zadach_resheno > 12) or (zadach_resheno < 0) then
  begin
    writeln('Некорректный ввод данных!');
    exit;
  end
  else
    ocenka := 2;
  
  writeln('Оценка: ', ocenka);
end.

var zadach_resheno, ocenka: integer;
begin
  write('Введите оценку: ');
  readln(zadach_resheno);
  case zadach_resheno of
   12    : ocenka := 5;
   8..11 : ocenka := 4;
   3..7  : ocenka := 3;
   0..2  : ocenka := 2;
  else writeln('Некорректный ввод данных!');
  end;
  writeln('Оценка: ', ocenka);
end.