var
    score: integer;

begin
    score := 85;

    if score >= 60 then
        writeln('Pass!')
    else
        writeln('Fail!');
end;

var
    grade: char;

begin
    grade := 'A';

    if grade = 'A' then
        writeln('Excellent!')
    else if grade = 'B' then
        writeln('Good!')
    else if grade = 'C' then
        writeln('Average')
    else
        writeln('Need improvement');
end;

var
    i: integer;

begin
    i := 1;
    while i <= 10 do
    begin
        writeln('Count: ', i);
        i := i + 1;
    end;
end;

function Add(a, b: integer): integer;
begin
    Add := a + b;  { 或 result := a + b; }
end;

var
    sum: integer;

begin
    sum := Add(3, 5);
    writeln('3 + 5 = ', sum);
end;

{ 值传递 }
procedure ByValue(x: integer);
begin
    x := x + 10;  { 不会影响原变量 }
end;

{ 引用传递 }
procedure ByRef(var x: integer);
begin
    x := x + 10;  { 会影响原变量 }
end;

var
    scores: array[1..5] of integer;
    i: integer;

begin
    scores[1] := 90;
    scores[2] := 85;
    scores[3] := 78;
    scores[4] := 92;
    scores[5] := 88;

    for i := 1 to 5 do
        writeln('Score ', i, ': ', scores[i]);
end;

type
    TStudent = record
        name: string[50];
        age: integer;
        grade: char;
    end;

var
    student: TStudent;

begin
    student.name := 'John Doe';
    student.age := 20;
    student.grade := 'A';

    writeln('Name: ', student.name);
    writeln('Age: ', student.age);
    writeln('Grade: ', student.grade);
end;

var
    f: text;
    line: string;

begin
    assign(f, 'input.txt');
    reset(f);
    while not eof(f) do
    begin
        readln(f, line);
        writeln(line);
    end;
    close(f);
end;

program Calculator;

var
    a, b: real;
    op: char;
    result: real;

begin
    writeln('Simple Calculator');
    writeln('Enter expression (e.g., 10 + 5):');

    readln(a, op, b);

    case op of
        '+': result := a + b;
        '-': result := a - b;
        '*': result := a * b;
        '/': if b <> 0 then result := a / b
             else writeln('Division by zero!');
    else
        writeln('Invalid operator!');
    end;

    if (op = '+') or (op = '-') or (op = '*') or (op = '/') then
        writeln('Result: ', a, ' ', op, ' ', b, ' = ', result:0:2);
end.

program GuessNumber;

var
    secret, guess: integer;

begin
    randomize;
    secret := random(100) + 1;  { 1-100 随机数 }

    writeln('Guess the number (1-100)!');
    writeln('Enter your guess:');

    repeat
        readln(guess);
        if guess > secret then
            writeln('Too high! Try again:')
        else if guess < secret then
            writeln('Too low! Try again:')
        else
            writeln('Congratulations! You got it!');
    until guess = secret;
end.

program BubbleSort;

var
    arr: array[1..5] of integer;
    i, j, temp: integer;

begin
    arr[1] := 64;
    arr[2] := 34;
    arr[3] := 25;
    arr[4] := 12;
    arr[5] := 22;

    writeln('Before sorting:');
    for i := 1 to 5 do
        write(arr[i], ' ');
    writeln;

    { 冒泡排序 }
    for i := 1 to 4 do
        for j := 1 to 5-i do
            if arr[j] > arr[j+1] then
            begin
                temp := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := temp;
            end;

    writeln('After sorting:');
    for i := 1 to 5 do
        write(arr[i], ' ');
    writeln;
end.

pascalorg/editor/
├── .github/                # GitHub Actions 配置
├── assets/                 # 静态资源
│   ├── css/              # 样式文件
│   ├── fonts/            # 字体文件
│   ├── images/           # 图片资源
│   └── js/               # JavaScript 文件
├── node_modules/         # 依赖包
├── pages/                # Next.js 页面
│   ├── _components/     # 页面组件
│   ├── _document.tsx   # HTML 文档
│   ├── index.tsx       # 首页
│   └── org/
│       └── [org]/
│           └── [repo]/
│               └── [version].tsx
├── components/           # 可复用组件
├── public/               # 公开静态文件
├── styles/               # 全局样式
├── scripts/              # 构建脚本
├── next.config.js       # Next.js 配置
├── package.json         # 依赖配置
└── tsconfig.json        # TypeScript 配置