Помогите решить задачу в Кумире!Пользователь вводит целое число. Каждую цифру в нем надо...

Question

Помогите решить задачу в Кумире!
Пользователь вводит целое число. Каждую цифру в нем надо заменить по следующему принципу: "1" на "9", "2" на "8", "3" на "7" и т.д. Цифра "0" не меняется. Результат сохранить в отдельной переменной и вывести на экран. Например: ввод - "4569870", вывод - "6541230"

Answer 1

Program gt;
var n,i,q,r,b,t:longint;
a:array[1..100]of longint;
begin
read(n);
t:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
r:=(10-q)mod 10;
t:=t+1;
a[t]:=r;
end;
b:=0;
for i:=t downto 1 do
begin
b:=b*10+a[i];
end;
writeln(b);
end.