Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program zad2;
- begin
- var x, y: Real;
- readln(x);
- y := x + 2.5;
- y := y * x;
- y := y - 1;
- y := y * x;
- y := y + 1;
- writeln(y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement