rightfile.pas

来自「用.NET编的scanner」· PAS 代码 · 共 10 行

program EXAM;
/* sub function */
var A,X,Y:integer;
begin
    X:=A+3;
    Y:=X*4.56;
    return(X+2);
    write('X=',X;'Y=',Y);
end