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

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.