Программы к этим задачам нужно написать на Pascal ABC. Заранее спасибо) 1) Даны два…

1) var A: array [1… 2] of real; B: array [1… 20] of real; i: integer; c: boolean; begin c: =false; readln (a[1],a[2]); for i: =1 to 20 do begin readln (b[i]); if (b[i]=a[1]) then begin writeln ('A[1]=B[',i,']=',b[i]); c: =true; end; if (b[i]=a[2]) then begin writeln ('A[2]=B[',i,']=',b[i]); c: =true; end; end; if c=false then writeln ('Совпадений не найдено'); end.2) var a: array[1… 10] of real; npol,notr,i: integer; begin npol: =0; notr: =0; for i: =1 to 10 do begin readln (a[i]); if a[i]>0 then npol: =npol+1; if a[i]<0 then notr: =notr+1; end; writeln ('Количество положительных значений: ',npol,', количество отрицательных значений: ',notr); end.