Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2019
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.18 KB | None | 0 0
  1. program new;
  2.  
  3. function extended.addFive(): extended;
  4. begin
  5.   result := (self + 5.0);
  6. end;
  7.  
  8. var
  9.   myExt: extended;
  10.  
  11. begin
  12.   myExt := 50.5;
  13.  
  14.   WriteLn(MyExt.addFive());
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement