Вычислить y=корень 4+x если подкоренное выражение меньше нуля то вывести соотвествуеще сообщение pascal​

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

1)это направление куда будут двигаться все обьекты

2)число равное тому сколько раз исполнитель повторит ваш алгоритм

т.д.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33