rightfile.pas

用.NET编的scanner

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