Задание 1:

Невозможно по фрагменту составить программу. Поэтому отвечаю фрагментом на фрагмент:

• a := 5;
• if not a = 1 then
• b := b + a;

Задание 2:

• var x, y: real;
• begin
• read(x);
• if x < 0 then y := (3 * sqr(x) + 4) / 6
• else y := sqrt(3 * x - 2);
• write(y);
• end.

Пример работы:

Можем проверить: вводим 2.

Так как 2>0 , то y = = = = 2.