Ответ:

var

 ball: real;

begin

 writeln('Введите балл:');

 readln(ball);

 if ball >= 4 then begin

   writeln('Хорошо');

  end

  else begin

    writeln('Плохо');

end;

end.