Advertisement
Guest User

Untitled

a guest
Aug 30th, 2015
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. function summa (A,B : integer): longint;
  2. begin
  3. if B > 0 then begin
  4. A:=A+1;
  5. B:=B-1;
  6. summa(A,B);
  7. end;
  8. end;
  9. var
  10. a,b : longint;
  11. begin
  12. Readln(a);
  13. Readln(b);
  14. Writeln(summa(a,b));
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement