Даны 2 массива А и В по 15 элементов в каждом. Получить новый массив Сi=Ai+Bi. Найти в нем максимум- Basic(Бейсик)

DIM a(15),b(15),c(15)
FOR i=1 TO 15
INPUT"vv. el. massiva a",a(i)
NEXT
FOR i=1 TO 15
INPUT"vv. el. massiva b",b(i)
NEXT
FOR i=1 TO 15
c(i)=a(i)+b(i)
NEXT
max=c(1)
FOR i=1 TO 15
IF c(i)>max THEN max=c(i)
NEXT
PRINT "massiv A: ";
FOR i=1 TO 15
PRINT a(i);" ";
NEXT
PRINT
PRINT "massiv B: ";
FOR i=1 TO 15
PRINT b(i);" ";
NEXT
PRINT
PRINT "massiv c: ";
FOR i=1 TO 15
PRINT c(i);" ";
NEXT
PRINT
PRINT max