Advertisement
ZakenChannel

Untitled

Mar 13th, 2020
184
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. program hello;
  2. var x, a, b, p, s, v, h: integer;
  3. begin
  4. readln(x);
  5. a := x div 10;
  6. b := x mod 10;
  7. if (x mod 2 <> 0) and (x mod 5 = 0) then
  8. begin
  9. s := a + b;
  10. writeln(s);
  11. end
  12. else
  13. begin
  14. p := a * b;
  15. writeln(p);
  16. end;
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement