RAZDEL_4

PROGRAM RAZDEL_4
CHARACTER(LEN=5) MORSE(36)
CHARACTER(LEN=1) ALPHABET(36)
CHARACTER(LEN=50) STRING
CHARACTER(LEN=5) STRING_OUTPUT(50)
1 FORMAT(50(A5, ' '))
MORSE(1) = '.-'
MORSE(2) = '-...'
MORSE(3) = '-.-.'
MORSE(4) = '-..'
MORSE(5) = '.'
MORSE(6) = '..-.'
MORSE(7) = '--.'
MORSE(8) = '....'
MORSE(9) = '..'
MORSE(10) = '.---'
MORSE(11) = '-.-'
MORSE(12) = '.-..'
MORSE(13) = '--'
MORSE(14) = '-.'
MORSE(15) = '---'
MORSE(16) = '.--.'
MORSE(17) = '--.-'
MORSE(18) = '.-.'
MORSE(19) = '...'
MORSE(20) = '-'
MORSE(21) = '..-'
MORSE(22) = '...-'
MORSE(23) = '.--'
MORSE(24) = '-..-'
MORSE(25) = '-.--'
MORSE(26) = '--..'
MORSE(27) = '.----'
MORSE(28) = '..---'
MORSE(29) = '...--'
MORSE(30) = '....-'
MORSE(31) = '.....'
MORSE(32) = '-....'
MORSE(33) = '--...'
MORSE(34) = '---..'
MORSE(35) = '----.'
MORSE(36) = '-----'
ALPHABET(1) = 'A'
ALPHABET(2) = 'B'
ALPHABET(3) = 'C'
ALPHABET(4) = 'D'
ALPHABET(5) = 'E'
ALPHABET(6) = 'F'
ALPHABET(7) = 'G'
ALPHABET(8) = 'H'
ALPHABET(9) = 'I'
ALPHABET(10) = 'J'
ALPHABET(11) = 'K'
ALPHABET(12) = 'L'
ALPHABET(13) = 'M'
ALPHABET(14) = 'N'
ALPHABET(15) = 'O'
ALPHABET(16) = 'P'
ALPHABET(17) = 'Q'
ALPHABET(18) = 'R'
ALPHABET(19) = 'S'
ALPHABET(20) = 'T'
ALPHABET(21) = 'U'
ALPHABET(22) = 'V'
ALPHABET(23) = 'W'
ALPHABET(24) = 'X'
ALPHABET(25) = 'Y'
ALPHABET(26) = 'Z'
ALPHABET(27) = '1'
ALPHABET(28) = '2'
ALPHABET(29) = '3'
ALPHABET(30) = '4'
ALPHABET(31) = '5'
ALPHABET(32) = '6'
ALPHABET(33) = '7'
ALPHABET(34) = '8'
ALPHABET(35) = '9'
ALPHABET(36) = '0'
READ(*, '(A)') STRING
K = 0
DO I = 1, 50
DO J = 1, 36
IF (STRING(I:I) == ALPHABET(J)) THEN
K = K + 1
STRING_OUTPUT(K) = MORSE(J)
END IF
END DO
END DO
PRINT 1, (STRING_OUTPUT(I), I = 1, K)
END PROGRAM