Program long;
uses crt;

var
cis:longint;
a:byte;

begin
clrscr;

repeat
write('Zadaj cislicu: ');
readln(a);
cis := (cis * 10) + a;
until (cis > 99999);

writeln('Cislo je ', cis);
readln;
end.