Program Prevodz;

Program. který bude převádět celá, kladná čísla z desítkové soustavy na dvojkovou soustavu.
Tohle jsem zatím napsal, ale zasekl jsem se na těch datových typech.


var i, a, cele: integer;
vysledek: string;

begin
writeln('Zadej celé kladné číslo v desítkové soustavě,' );
writeln('které bude převedeno do dvojkové soustavy');
readln (cele);

i:=0;
vysledek:='';

while (cele <> 0) do
begin
vysledek[i]:= (cele mod 2);
cele:= cele div 2;
i:=i+1;
vysledek:= vysledek + vysledek[i];
end;
writeln (vysledek);
readln();
end.