193030

1.2 Rectangle area

Sep 22nd, 2019
190
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. program Rectagnle;
  2. var
  3. x1 : real;
  4. y1 : real;
  5. x2 : real;
  6. y2 : real;
  7. sum : real;
  8. begin
  9. writeln('Enter x1: ');
  10. readln(x1);
  11. writeln('Enter y1: ');
  12. readln(y1);
  13. writeln('Enter x2: ');
  14. readln(x2);
  15. writeln('Enter y2: ');
  16. readln(y2);
  17. sum:=(x2-x1)*(y2-y1);
  18. writeln('The sum is: ');
  19. writeln(sum);
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment