Чему равна сумма элементов a[1] и a[4] массива, сформированного следующим образом?for i:=1 to 5 do a[i]:=i*i;а) 5б) 15в) 55г) 40​

Числа являются взаимно простыми, если их наибольший общий делитель равен 1. Используя это свойство, напишем программу:
var
  a, b, c: integer;

{НОД двух чисед}
function gcd(a, b: integer): integer;
var t: integer;
begin
  while b > 0 do
  begin
    t := b;
    b := a mod b;
    a := t;
  end;
  gcd := a;
end;

{Проверка трех чисел на взаимную простоту}
function isCoprime(a, b, c: integer): boolean;
begin
  isCoprime := gcd(gcd(a, b), c) = 1;
end;

begin
  read(a, b, c);
  if isCoprime(a, b, c) then write('Числа взаимно простые')
                        else write('Числа не являются взаимно простыми');
end.

Var
 a,i,n,s:integer;
 
 function q (a:integer):integer;
 var h,n:integer;
  begin
      n:=a;
      h:=0;
      q:=0;
     while n>0 do
     begin
      n:=n div 10;
      h:=h+1;
       end;
       if h = 5 then
        begin
         n:=a div 10000;
          if n=3 then
            if a mod 2 = 0 then
          q:=1;
        end ;
     end;
      
 begin
  readln(a);
  i:=a;
   while q(i)<>1 do
    begin
    writeln('Error');
   readln(a);
   i:=a;
   q(i);
      end;
      while a>0 do
       begin
        s:=s+a mod 10;
        a:=a div 10;
       end;
      writeln(s);   end.