Advertisement
Guest User

Untitled

a guest
Aug 30th, 2011
206
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. program Kalkulator;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. Var
  9. Broj1, Broj2, Zbir : Integer ;
  10. begin
  11. Write ('Molim, upisite ceo broj: ');
  12. Readln (Broj1);
  13. Write ('Molim, upisite jos jedan ceo broj: ');
  14. Readln (Broj2);
  15. Zbir := Broj1+ Broj2;
  16. Writeln (Broj1, ' + ', Broj2, ' = ', Zbir);
  17. Readln
  18.  
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement