unit Str_Unit7;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;



Type
  str_item = array[1..10] of String;

  var
  st_it :str_item;
  n, mas_n: Integer;


implementation

 begin
   n:=1;

 st_it[n]:='Демонстрация работы кнопок (Swing, Шилдт Герберт)'; n:=n+1;
 st_it[n]:='Использование адаптеров вместо интерфейсов (Swing, Иван Портянкин)';n:=n+1;
 st_it[n]:='Проверка быстродействия компьютера (Benchmark) (Console)';n:=n+1;
 st_it[n]:='Первая программа на JavaFX (JavaFX)'; n:=n+1;

 mas_n:=n+1;
end.

