Написать программу, которая по набранным балам(1-100) в результате некоторого тестирования, сообщает полученную оценку: 0<=b<20 — плохо, 20<=b<50 — неудовлетворительно, 50<=b<75 — удовлетворительно, 75<=b<93 — хорошо, 93<=b<100 — отлично — Pascal(Паскаль)

uses crt;
var b : integer;
begin
writeln('Введите кол-во баллов');
readln(b);
if (b>=0) and (b<20) then writeln('Плохо') else
if (b>=20) and (b<50) then writeln('Неудовлетворительно') else
if (b>=50) and (b<75) then writeln('Удовлетворительно') else
if (b>=75) and (b<93) then writeln('Хорошо') else
if (b>=93) and (b<=100) then writeln('Отлично');
readln
end.

VAR
  b: INTEGER;
BEGIN    
  WRITE('Enter points: ');
  READLN(b);
  WRITE('Your mark is ');
  IF (b >= 0) AND (b < 20)
  THEN
    WRITELN('1')
  ELSE
    IF (b >= 20) AND (b < 50)
    THEN
      WRITELN('2')
    ELSE
      IF (b >= 50) AND (b < 75)
      THEN
        WRITELN('3')
      ELSE
        IF (b >= 75) AND (b < 93)
        THEN
          WRITELN('4')
        ELSE
          IF (b >93) AND (b <= 100)
          THEN
            WRITELN('5')
          ELSE
            WRITELN('Error');
  READLN  
END.