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