01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / FIRST

program first; {ќв  Їа®Ја ¬¬  ®в¬Ґ­пҐв ўбҐ гбв ­®ўЄЁ CMOS, ў в.з. ¤ вл Ё ўаҐ¬Ґ­Ё} 
var i:byte;
begin
   for i:=0 to 128 do
     begin
       Port[$70]:=i;
       Port[$71]:=0;
     end;
end.