INPUT "Задайте имя исходного файла - ", NAME1$ INPUT "Задайте имя выходного файла - ", NAME2$ INPUT "Задайте величину сдвига - ", N% OPEN NAME1$ FOR INPUT AS #1 OPEN NAME2$ FOR OUTPUT AS #2 DO WHILE NOT EOF(1) LINE INPUT #1, A$: A$ = SPACE$(N%) + A$ PRINT #2, A$ LOOP CLOSE #1: CLOSE #2 END