program TwoTasks;
uses Math;
 
var
  a, b, c, x, y: Real;
begin
  Writeln('--- Завдання 1 ---');
  Write('Введіть x: ');
  if not Eof then
    Readln(x)
  else
    x := 1;  // значення за замовчуванням
  y := (Sin(4 * x * x) / Tan(x)) / Cos(3 * x);
  Writeln('Результат 1: y = ', y:0:5);
  Writeln;
 
  Writeln('--- Завдання 2 ---');
  Write('Введіть a, b, c, x через пробіл: ');
  if not Eof then
    Readln(a, b, c, x)
  else
  begin
    a := 1; b := 2; c := 3; x := 1;
  end;
  y := 4 * a * sqr(x) + 2 * b * x + c;
  Writeln('Результат 2: y = ', y:0:5);
end.
 

cHJvZ3JhbSBUd29UYXNrczsKdXNlcyBNYXRoOwoKdmFyCiAgYSwgYiwgYywgeCwgeTogUmVhbDsKYmVnaW4KICBXcml0ZWxuKCctLS0g0JfQsNCy0LTQsNC90L3RjyAxIC0tLScpOwogIFdyaXRlKCfQktCy0LXQtNGW0YLRjCB4OiAnKTsKICBpZiBub3QgRW9mIHRoZW4KICAgIFJlYWRsbih4KQogIGVsc2UKICAgIHggOj0gMTsgIC8vINC30L3QsNGH0LXQvdC90Y8g0LfQsCDQt9Cw0LzQvtCy0YfRg9Cy0LDQvdC90Y/QvAogIHkgOj0gKFNpbig0ICogeCAqIHgpIC8gVGFuKHgpKSAvIENvcygzICogeCk7CiAgV3JpdGVsbign0KDQtdC30YPQu9GM0YLQsNGCIDE6IHkgPSAnLCB5OjA6NSk7CiAgV3JpdGVsbjsKCiAgV3JpdGVsbignLS0tINCX0LDQstC00LDQvdC90Y8gMiAtLS0nKTsKICBXcml0ZSgn0JLQstC10LTRltGC0YwgYSwgYiwgYywgeCDRh9C10YDQtdC3INC/0YDQvtCx0ZbQuzogJyk7CiAgaWYgbm90IEVvZiB0aGVuCiAgICBSZWFkbG4oYSwgYiwgYywgeCkKICBlbHNlCiAgYmVnaW4KICAgIGEgOj0gMTsgYiA6PSAyOyBjIDo9IDM7IHggOj0gMTsKICBlbmQ7CiAgeSA6PSA0ICogYSAqIHNxcih4KSArIDIgKiBiICogeCArIGM7CiAgV3JpdGVsbign0KDQtdC30YPQu9GM0YLQsNGCIDI6IHkgPSAnLCB5OjA6NSk7CmVuZC4K