program prevod_cis_coustav;

var z1,z2,mist,zjm,delka:integer;
    cis:string;

begin
mist:=10;
writeln;
write ('Zadej cislo jedna: ');
read(cis);
writeln;
write ('O zakladu: ');
read(z1);
writeln;
write ('Do soustavy o zakladu: ');
read(z2);

Delka:=Length(cis);





end.