SHARE
TWEET

Untitled

a guest Jan 12th, 2017 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program ForMargarita9;
  2. var a, x, y : real;
  3. begin
  4.     write('Enter a: ');
  5.     readln(a);
  6.     write('Enter x: ');
  7.     readln(x);
  8.    
  9.     writeln((1 - a) / x);
  10.     y := sqrt(ln((1 - a) / x));
  11.     writeln('y = ' + y);
  12. end.
RAW Paste Data
Top