var Data: Byte absolute $0040:$00F0; begin if Data > 254 then begin writeln(Data); Data:=0 end else begin Data:= Data +1; writeln(Data) end; readln; end.