Дан условный оператор: if(a<13)theny:=aelsey:=a+5 . Условием является все ответы верные

a < 13

Объяснение:

Условие находится между if и then. Оно может быть или сложным.

Неполный вариант:

if условие then оператор;

Полный вариант:

if условие then оператор else оператор;

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.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.