1program kat(input, output); 2var 3 ch: char; 4begin 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 13end { kat }. 14