fpc/tests/tbs0125.pp
1999-06-01 00:26:02 +00:00

13 lines
127 B
ObjectPascal

uses
crt;
var
i:integer;
begin
clrscr;
textcolor(blue);
writeln('ole');
textcolor(red);
writeln('rasmussen');
writeln(i);
end.