Advertisement
Guest User

Untitled

a guest
Apr 28th, 2017
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.15 KB | None | 0 0
  1. program zad2;
  2. begin
  3.   var x, y: Real;
  4.   readln(x);
  5.   y := x + 2.5;
  6.   y := y * x;
  7.   y := y - 1;
  8.   y := y * x;
  9.   y := y + 1;
  10.   writeln(y);
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement