square.0

来自「PL/0源码」· 0 代码 · 共 21 行

var
	indata, squarefp, squareret;

procedure square;
var
	squareap;
begin
	squareap := squarefp;
	squareret := squareap * squareap;
end;

begin
    indata := input;
    while indata # 0 do begin
        squarefp := indata;
        call square;
        output := squareret;
        indata := input;
    end;
end.