program viewport; { view/detect comports }
var comports:array[1..4] of integer absolute $40:0;
begin
writeln('COM1: ',comports[1]);
writeln('COM2: ',comports[2]);
writeln('COM3: ',comports[3]);
writeln('COM4: ',comports[4]);
end.