program Project;
var
  x, y, c, b, a, z: real; 
begin
  Write('Первое задание. Введите x, y: ');
  (x, y) := ReadReal2();
  if x < 78 then
    Writeln('Корень из отрицательного числа!')
  else
    begin
      c := ((2/(7 + x) + Power(x - 78, 1.0/2))/(Abs(Power(y, 2.0) - 144) + Power(x, 3.0)));
      Writeln(Format('c = {0}', c));
    end;
  
  Write('Второе задание. Введите x, y, z: ');
  (x, y, z) := ReadReal3();
  if (x = -3/2) and (y <> 2) and (x < 0) then
    begin
      Writeln('Деление на 0 или корень из отрицательного числа!');
      exit
    end
  else
    begin
      a := (2*x + 3*y - z)/(3 + 2*x);
      b := (Power(x, 1.0/2) + 4)/(Abs(y) - 2);
    end;
  Writeln(Format('a = {0}{1}b = {2}', a, Chr(10), b));
end.