Anonymous

program Bevardë21;
var
    a,b,c,d: integer;
begin
  WriteLn('Vesk skaiciu');
  ReadLn(a);
  c := 1;
  b := a;
  While b > 0 do begin
    b := b div 10;
    c := c*10;
  end;
  c := c + a;
  writeln('Skaicius: ',c);
  Readln;
end.