//初学 pascal, 可能有误
program three;
{$APPTYPE CONSOLE}


var
    a, b, c :Integer;
    
begin
    Writeln('请输入 N:');
    Readln(a);

    if a > 100 then
    begin
        Writeln('输入数据有误!');
        Exit;
    end;
    
    Write(a, '*', a, '*', a, '=');

    b := 0;
    while b < a do
    begin
        c := a * a - a + 1 + b * 2;
        if b = 0 then Write(c)
        else Write('+', c);

        Inc(b);
    end;
end.

pascal中可以用中文吗，好像太麻烦了一点

我使用的 win32 平台的 fp