program Tema1;

uses
  SysUtils;

var
  x, y, z, a, b, c, u: Extended;
  Edit1, Edit2, Edit3: String;
begin
  // Начальные значения
  Edit1 := '3.4';
  Edit2 := '0.74';
  Edit3 := '19.43';

  // Вывод начальных значений
  Writeln('Начальные значения:');
  Writeln('X = ', Edit1);
  Writeln('Y = ', Edit2);
  Writeln('Z = ', Edit3);

  // Преобразование строковых значений в числа
  x := StrToFloat(Edit1);
  y := StrToFloat(Edit2);
  z := StrToFloat(Edit3);

  // Вычисление арифметических выражений
  a := Sqr(Sin(x + y) / Cos(x + y));
  b := Exp(y - z);
  c := Sqrt(Cos(Sqr(x)) + Sin(Sqr(z)));
  u := a - b * c;

  // Вывод результата
  Writeln('Результат u = ', FloatToStrF(u, fffixed, 8, 3));
end.