По особенностям реализации ГИС можно классифицировать на: а) Векторные
б) Растровые
В) Открытые
Г) Интегрированные
д) Закрытые
Только а, б, В, Г, Д
О ТОЛЬКО В, Г, Д
Отолько а, б, в, д
Отолько а, б, г

CLS
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n

DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING

FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i

Код валидный, если допустил ошибку во время переписывания - сообщите.

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.