uses CRT;

label q;

begin

  SetWindowTitle('Заставка CRT');

    q:

  for var i:=0 to 15 do

  begin

    TextBackground(i);

    TextColor(i);

    write('00');

  end;

  system.Console.Beep(763,90);

 goto q;

  TextBackground(0);

  TextColor(0);

  writeln;

end.

Class Program

Shared Sub Main()

q:

Dim nums(15) As Integer

        For i As Integer = 1 To nums.Length  - 1

        Console.ForegroundColor = i

Console.BackgroundColor = i

        Console.Write("000")

        Next

system.Console.Beep(763,90)

goto q

End Sub

End Class

q:

DIM a(15)

FOR i = 1 TO 15

COLOR i, i

PRINT ""

NEXT i

SOUND 663, 9000

GOTO q