9 класс 1 Дано список [13, 19, 11, 7, 18]. Вилучте елемент на першій позиції і після, цього знайдіть максимальний елемент. 2 Дано список міст України "Херсон", "Жи- томир", "Ужгород", "Харків" Уставте місто Луцьк на другу позицію і після цього відсор- туйте список. 3 Дано список [9, 2, 5, 6]. Замініть число на першій позиції числом 12. Відсортуйте новий списокМовою програмування​

Var a, b, c, rez: real;
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.

Громоздко, но, думаю, покатит