[unix-history] / usr / doc / pascal / kat.p

program kat(input, output);
var
    ch: char;
begin
    while not eof do begin
	while not eoln do begin
	    read(ch);
	    write(ch)
	end;
	readln;
	writeln
    end
end { kat }.
Commit	Line	Data
1f017636 BJ	1	program kat(input, output);
	2	var
	3	ch: char;
	4	begin
	5	while not eof do begin
	6	while not eoln do begin
	7	read(ch);
	8	write(ch)
	9	end;
	10	readln;
	11	writeln
	12	end
	13	end { kat }.