Опишите массив из 50 действительных чисел

var 

a: array[1..50]of real;

Var n,sum,d,ind,first: integer; begin   write('n');   readln(n);   d: =1;   ind: =0;   sum: =0;   if   n div d=0 then    begin    ind: =1;   sum: =n;   end    else begin    while n div d< > 0 do    begin    inc(ind);     sum: =sum+(n div d) mod 10;     d: =d*10;     end;     end;     writeln('suma',sum);     writeln('kolvo',ind);     first: =(n div round(d/10)) mod 10;   writeln('first',first);     readln; end.

1) var a : byte;     begin         writeln('сколько вам лет? ');   readln(a);         if a > 17 writeln('вы совершеннолетний');     end. 2)   var a : integer;       begin           readln(a);           if a mod 2 = 0 then writeln(число четное)           else writeln(число нечетное);       end.