hugereal.p

来自「早期freebsd实现」· P 代码 · 共 12 行

program hugereal(input,output);
    var
	r : real;
	errno : integer;
    begin
	writeln('errno = ', errno);
	write('gimme a real ');
	readln(r);
	writeln('that was a really satisfying',r);
	writeln('errno = ', errno);
    end.