Pascal'da Farklı Uygulamalar

BİOS TARİHİ
Program BIOS_Tarihi;
var
n : byte;
m : array[1..10] of char absolute $F000:$FFF5;
begin
writeln (' ');
write (' BIOS Tarihi : ');
for n:=1 to 10 do if (m[n] > #46) and (m[n] < #59) then Write(m[n]);
writeln (' ');
end.