program kdemo;
uses crt,konverzio;
var kszam:string10;
    bszam,
		be:String8;
		ki:byte;
    eszam:integer;
begin
clrscr;
Writeln ('Tudod mi a dolgod!');
Readln (Be);
Bitkeptobyte (Be, Ki);
Writeln (ki);
Readln;
End.




{clrscr;
  write('Kerem a konvertalando szamot!');
  readln(kszam);
  kbyte (kszam,bszam);
  writeln('A konvertalt szam: ',bszam);
  readln;
  bkar(bszam,kszam);
  writeln('A konvertalt szam: ',bszam);
  readln;
  write('Kerem a konvertalando szamot!');
  readln(kszam);
  kegesz(kszam,eszam);
  writeln('A konvertalt szam: ',eszam);
  readln;}
end.