#pas
program treug;
var
a,b,c,d,e,g:integer;
begin
writeln('vvedite parametry pervogo treugolnika:');
write('storona A:');readln(a);
write('storona B:');readln(b);
write('storona C:');readln(c);
writeln('vvedite parametry vtorogo treugolnika:');
write('storona A:');readln(d);
write('storona B:');readln(e);
write('storona C:');readln(g);
if (a=d) and (b=e) and (c=g)
then writeln('oni ravny')
else writeln('oni neravny');
readln;
end.

#pas
program chisla;
var
a,b:integer;
begin
write('vvedite A:');readln(a);
write('vvedite B:');readln(b);
repeat
if a mod 5<>0 then write(a,',');
a:=a+1;
until a>b;
readln;
end.

#pas
program bobina;
var
b:integer;
a,l:real;
begin
write('vvedite diametr bobiny A(mm):');readln(a);
write('vvedite kolichestvo sloev B:');readln(b);
repeat
b:=b-1;
l:=l+3.141592*a;
a:=a+0.02;
until b=0;
write('dlina L=',l:8:2,' mm');
readln;
end.

#pas
program dolg;
var
d,t,i:integer;
s:real;
begin
write('vvedite dolg:');readln(d);
write('vvedite kolichestvo mesjacev:');readln(t);
i:=0;
repeat
i:=i+1;
if d-1000 < 0
then d:=0
else d:=d-1000;
if d<1000
then s:=s+d
else s:=s+1000+d*0.03;
until (i=t) or (d=0);
writeln('za ',i, ' mesjacev vypla4eno ',s:8:2,'rub.');
readln;
end.

#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.