allekco

two

Oct 20th, 2019
84
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.     x, answer, key : integer;
  3. begin
  4.     readln (x);
  5.     key := abs(x mod 2);
  6.     answer := 10 - key * 20;
  7.     writeln (answer);
  8. end.
RAW Paste Data