Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :- initialization(main).
- main :- write('A='),
- read_integer(A),
- write('B='),
- read_integer(B),
- write('C='),
- read_integer(C),
- P is 2*(A+B), write(P),
- S is A*B, write(S),
- K is 4*C, write(K),
- F is C*C, write(F).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement