Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Kalkulator;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- Var
- Broj1, Broj2, Zbir : Integer ;
- begin
- Write ('Molim, upisite ceo broj: ');
- Readln (Broj1);
- Write ('Molim, upisite jos jedan ceo broj: ');
- Readln (Broj2);
- Zbir := Broj1+ Broj2;
- Writeln (Broj1, ' + ', Broj2, ' = ', Zbir);
- Readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement