Доброго времени суток, с информатикой

Var   arr : array [1..10] of integer; //объявляем массив   i, min, max : integer;         //индекс, позиция минимального элемента, позиция максимального элемента begin   min : = 1;   max : = 1;   for i : = 1 to 10 do     arr[i] : = random(20) - 10;   //заполняем массив       for i : = 2 to 10 do             //находим позицию максимального элемента     if arr[i] > arr[max] then       max : = i;   for i : = 2 to 10 do             //находим позицию минимального элемента     if arr[i] < arr[min] then       min : = i;     writeln('максимальный элемент: ', arr[max], '; его позиция: ', max);       writeln(' элемент: ', arr[min], '; его позиция: ', min); end.

Program treugolnik; uses crt; var a,h,s: real; begin clrscr;           write('основание a = ');           readln(a);           write('высота h = ');           readln(h);           writeln;           if (a< =0) or (h< =0) then           writeln('значения не могут быть отрицательными или равняться нулю')           else                     begin           s: =(1/2)*a*h;           writeln('площадь треугольника s = ',s);           end;           readln; end.