Решите максимально и правильно.
Оплата достойная.
Тех, кто не по делу будет писать бред ради - в бан моментально. ​

Задание 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.