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.