Question

С клавиатуры вводится трехзначное число. Составить программу которая найдет разность цифр этого числа, стоящих в позиции единиц и сотен.

Answer 1

Var
  a: integer;
 begin
  readln(a);
  write(a mod 10 - a div 100);
end.