program chiclo;
uses crt;
var a, b,d, c,s: integer;
begin
clrscr;
writeln ('c='); readln(c);
a:=c div 100;  c:=c div 10;
 b:=( c mod 10)mod 10;
writeln ('1 num',a);
writeln ('2 num', b);

writeln ('3 num',c);
s:=a+b; writeln ('s=',s); writeln;
c:=b*10+a; writeln('c=',c);
c:=d*100+b*10+a; writeln('c=',c);
readkey;
end.