Разработка программ, содержащих оператор ветвления

Укажите значение величины S после выполнения следующих команд:

S:=7;

S:=23;

S:=S+6;

в ответе запишите число.

В программе использован оператор ветвления.

If x>=3 then writeln (‘Зачет’) else writeln (‘Незачет’);

Какое значение будет выведено на экран дисплея, если x=7.

В программе использован оператор ветвления.

If x<1000 then writeln (‘да’) else writeln (‘нет’);

Какое значение будет выведено на экран дисплея, если х=70.

Какое значение будет иметь переменная р после выполнения программы, если с клавиатуры введено число 7?

Program Primer1;

      var a, b, p: integer;

Begin

      writeln (‘Введите a’);

      readln (a);

      if  (a>=7)

       then begin

                             b:=3;

                             p:=a*a+b*b;

                  end

      Else begin

 b:=5;

                  p:=(a+b)*(a+b);

                  end;

      writeln (‘ p=’, p);

End.

в отаете указать число.

В программе использован оператор ветвления.

If a>=b then

begin

c:=a;

a:=b;

b:=c;

      end

else b:=1;

writeln (a,b);

Какое значение будет выведено на экран дисплея, если a=10, b=20?