#1.
x<-matrix(c(" "), nrow=4, ncol=10) # creating matrix
colnames(x)<-c(0,1,2,3,4,5,6,7,8,9) # labeling columns
rownames(x)<-c(0,1,2,3) # labeling rows
# creating polybius table
x[1,1]<-" "
x[1,2]<-"Z"
x[1,3]<-"M"
x[1,4]<-"D"
x[1,5]<-" "
x[1,6]<-"K"
x[1,7]<-"W"
x[1,8]<-"Q"
x[1,9]<-" "
x[1,10]<-"G"

x[2,1]<-"V"
x[2,2]<-" "
x[2,3]<-"A"
x[2,4]<-" "
x[2,5]<-"R"
x[2,6]<-" "
x[2,7]<-"E"
x[2,8]<-" "
x[2,9]<-"T"
x[2,10]<-"O"

x[3,1]<-" "
x[3,2]<-"J"
x[3,3]<-"I"
x[3,4]<-"S"
x[3,5]<-"B"
x[3,6]<-"P"
x[3,7]<-"Y"
x[3,8]<-" "
x[3,9]<-"F"
x[3,10]<-" "

x[4,1]<-"L"
x[4,2]<-" "
x[4,3]<-" "
x[4,4]<-"C"
x[4,5]<-" "
x[4,6]<-"U"
x[4,7]<-"H"
x[4,8]<-"N"
x[4,9]<-" "
x[4,10]<-"X"
x # Displaying table

#2.
Message<-"CAPTURETHEHILL" # message
substring(Message,1:14,1:14) # display message of individual characters


Ciphertext<-"3312251835141618361636223030" # encrypted message
substring(Ciphertext,1:28,1:28) # display each digit as a separate element

                                                      #1802408 Osvaldas Stanelis