program project1;
uses crt;
var cislo: integer;
    znak: char;
begin
  writeln('Zadaj cislo od 1 do 255');
  writeln('Na ukoncenie programu zadaj 0');
  readln(cislo);
  while (cislo <> 0) do
     begin
       if (cislo>=1) and (cislo<=255)
       then
         begin
           znak:=chr(cislo);
           writeln('Cislo ',cislo,' je ',znak);
         end
       else writeln('Cislo ma byt od 0..255');
       writeln('Zadaj dalsie cislo');
       readln(cislo);
     end;
  writeln('program skoncil, lebo si dal 0');
  readln;
end.