Return to expotst.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

BSD 4.3tahoe

program test(output);
var
x :real;
begin
while not eof do begin
	readln(x);
	writeln(expo(x))
	end
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.