1)заданы два числа если больше 1 то вычисляется их сумма если 2 то разность А если они равны то произведения
и
2)Заполните массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и вывести на экран порядковые номера :отрицательных элементов
ПОМОГИТЕ ПОЖАЛУЙСТА , ОЧЕНЬ НАДО ПОЖАЛУЙСТА!!!))))

Спасибо

не за что

1var a,b:integer;beginreadln(a,b);if a>b thenwrite(a+b);if b>a thenwrite(b-a);if a=b thenwrite(ab);end.2type mas=Array [1..15] of integer;var i:integer;a:mas;beginrandomize;for i:=1 to 15do beginA[i]:=random(-10,10);if A[i]<0 thenwrite(i,' ');end;end.