Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program q199040935_1;
- var x, y: real;
- begin
- readln(x);
- if (x <= -9) then
- y := -1 * (x + 1)
- else if (x > 0) then
- y := ln(x)
- else
- y := x + 3;
- writeln(y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement