allekco

two

Oct 20th, 2019
79
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 := x mod 2;
  6.     answer := 10 - key * 20;
  7.     writeln (answer);
  8. end.
RAW Paste Data