{* Задача356 *}

REM basic

' Введите свое полное имя так, чтобы оно было в верхней части в центре строки экрана вразрядку.


CLS
INPUT "vvedite imya ", a$
n = 40 - LEN(a$)
For i = 1 To LEN(a$)
LOCATE 2, n
PRINT Mid$(a$, i, 1) + " ";
n = n + 2
Next
End