Текстовое поле (input) для написания и кнопки (button) html
создат� список ul с id tasklist
внутри создать элементы (il) с текстом при нажатие на кнопку
у каждой кнопки должна быть кнопки (удалить) и чекс бокс
это html

Program massiv;
uses crt;
type
matr=array[1..10] of integer;
var
a: matr;
procedure vvod(var a:matr);
var
i: integer;
begin
for i:=1 to 10 do
begin
write ('Введите элемент массива a[',i,']');
readln(a[i]);
end;
end;
procedure ivyvod(var a: matr);
var i: integer;
begin
write ('Исходный массив ');
for i:=1 to 10 do
write (a[i],' ');
writeln;
end;
procedure sort(var a:matr);
var
i,j,min: byte; vsp: integer;
begin
for i:=1 to 9 do
begin
min:=i;
for j:=i+1 to 10 do
if a[j]<a[min] then min:=j;
vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp;
end;
end;
procedure vyvod(a:matr);
var
i:integer;
begin
write('Отсортированная последовательность массива ');
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then write(' ',a[i]);
end;
end;
begin
vvod(a);
ivyvod(a);
sort(a);
vyvod(a);
end.

Var
  a,b,c:real;
  F:byte;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) and
    (a>0) and (b>0) and (c>0) then F:=1 else F:=0;
  if F=1 then Writeln('Треугольник можно построить')
  else Writeln('Треугольник построить нельзя')
end.

Тестовые решения:
Введите длины сторон треугольника: 3 4 5
Треугольник можно построить

Введите длины сторон треугольника: 1 1 1
Треугольник можно построить

Введите длины сторон треугольника: 0 4 5
Треугольник построить нельзя

Введите длины сторон треугольника: -3 6 5
Треугольник построить нельзя

Введите длины сторон треугольника: 2 1 8
Треугольник построить нельзя