Программа для вычисления x и y по формулам - Pascal

var a, b, c, x, y, t: real;
 
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  x := abs(a - b * sin(c));
  if x = 0
    then writeln('x не определено.')
    else begin
      x := sqr(cos(a * b)) / sqrt(x);
      writeln('x = ', x)
    end;
  y := cos(c * c * c);
  if (sin(b) = 0) or (c = 0) or (y = 0)
    then writeln('y не определено.')
    else begin
      t := 2 * a / b / c;
      y := sin(t) / cos(t) * ln(abs(sqr(sin(b)) / y));
      writeln('y = ', y)
    end;
  readln
end.