ioch| begin integer layout, ch1, ch2, i; layout := format([sndddc_]); open(30); for i := 10, 17 do begin open(i); writetext(30, [opened*channel_]); write(30, layout, i); end; open(20); loop: ch1 := charin(20); for i := 10, 17 do begin charout(i, ch1); write(i, layout, ch1); if ch1 = 61 then goto exit; end; goto loop; exit: close(20); for i := 10, 17 do close(i); end| CASE NORMAL &?!%'$~/ 01234567 89º;+-. @ABCDEFG HIJKLMNO PQRSTUVW XYZ{}12Ø case shift &?!%'$~: ^[]<>=×÷ ()£;±*, @abcdefg hijklmno pqrstuvw xyz{}12Ø |