Вычисли число строк в таблице, считая шапку таблицы. Число переменных в выражении — 3

vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

вся информация   в компьюторе находится в цифровом виде

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.