#pas
program treug;

var
  a, b: array of integer;
  i, r: integer;

procedure vvod(i: integer; a: array of integer);
var
  j, t: integer;
begin
  writeln('Введите стороны ', i, '-го треугольника:');
  write('Сторона A:');readln(a[0]);
  write('Сторона B:');readln(a[1]);
  write('Сторона C:');readln(a[2]);
  for j := 0 to 1 do 
    for i := 0 to 1 do
    begin
      if a[i] > a[i + 1] then 
      begin
        t := a[i];
        a[i] := a[i + 1];
        a[i + 1] := t;
      end;
    end;
end;

begin
  SetLength(a, 3);vvod(1, a);
  SetLength(b, 3);vvod(2, b);
  r := 1;
  for i := 0 to 2 do if a[i] <> b[i] then r := 0;
  if r = 1 then writeln('Треугольники равны') else writeln('Треугольниуи неравны');
  readln;
end.

#pas
program cvety;

var
  name, land, light, water, earth, more: array of string;
  n: integer;

procedure init();
begin
  name := new string[5]('Кактус', 'Роза', 'Дуб', 'Вислоухая голуболистница', 'Кактус');
  land := new string[5]('Россия', 'Польща', 'Голландия', 'Танзания', 'Греция');
  light := new string[5]('Любит', 'Не выносит', 'Неизвестно', 'Обожает', 'Не выносит');
  water := new string[5]('Часто', 'Не требует полива', 'Не часто', 'Постоянно', 'Не требует полива');
  earth := new string[5]('Любая', 'Не нужна вообще', 'Растет только на болотах', 'Песок', 'Глина');
  more := new string[5]('Говорят, это очень вкусное растение', 'Тоже можно есть', 'Последний экземпляр срублен 100500 лет назад', 'Светится в темноте', 'Угу');
end;

procedure menu();
var
  i: integer;
begin
  writeln;
  for i := 0 to 4 do 
  begin
    writeln(i, ': ', name[i]);  
  end;
  writeln;
end;

procedure info(n: integer);
begin
  writeln;
  writeln('Название: ', name[n]);
  writeln('Страна: ', land[n]);
  writeln('Отношение к свету: ', light[n]);
  writeln('Как поливать: ', water[n]);
  writeln('Земля: ', earth[n]);
  writeln('Заметки: ', more[n]);
  writeln;
end;

begin
  init;
  repeat
    menu;
    write('Введите номер цветка:');
    readln(n);
    if (n >= 0) and (n < 5) then info(n) else writeln('Нет данных');
    write('Выход (1-нет, 0-да):');
    readln(n);
  until n = 0;
end.