program co_robi_6;
uses crt;
var i, cislo, cifra:integer;
begin
  writeln('Zadaj 5-ciferne prirodzene cislo ');
  readln(cislo);
  writeln('Co s nim urobim?');
  for i:=1 to 5 do
    begin
      cifra:=cislo mod 10;
      write(cifra);
      cislo:=cislo div 10;
    end;
  readln;
end.