program Project2;
//정수를 입력받아 등급을 출력
{$APPTYPE CONSOLE}

uses
  SysUtils, System, Dialogs, StdCtrls;

var
  X: Integer;
  strTemp: String;
  sum : Integer;
  nTemp : Integer;
  strX : String;
begin
  Write('정수 X');
  ReadLn(strX);
  X:= StrToInt(strX);

  if (X >= 80) then begin
    nTemp := X;
    Write('X >= 80  = A 등급 ');
  end
  else if (X >= 60) then begin
    nTemp := 60;
    Write('X >= 60  = B 등급');
  end
  else if (X >= 40) then begin
    nTemp := 40;
    Write('X >= 40  = C 등급');
    end
  else if (X >= 20) then begin
    nTemp := 20;
    Write('X >= 20  = D 등급');
    end
  else if (X >= 0) then begin
    nTemp := 0;
    Write('X >= 0  = F 등급');
  end;

  ReadLn(strTemp);
end.
//이렇게 if else문으로 코딩했는데...
case문으로 코딩 해볼려니깐 잘안되네요~!!
고수님들 완전초보 좀 도와주세요!!