Ответ:Program Test,

Var x, y, z: integer; a1, a2: real;

Begin

Writeln('Введите значения х, y, z');

Readln(x, y, z);

a1 := (x + y - z) / (x * 2 + 2);

a2 := 5 * ((2 * x - z) / (3 + y * 2));

Writeln();

Writeln('a1 = ', a1);

Writeln('a2 = ', a2);

End.

-----------------------

P.S. Программа на паскале; На будующее - пиши условие задачи понятнее. Не х2, а х * 2 или 2х, а то это можно посчитать как х^2

Ответ к заданию 1 - это а1, а к заданию 2 - это а2

Объяснение: