Помогите решить задачи по паскалюАВС... Задача-1: найти кол-во букв О в введенном тексте. Задача-2: Найти среднее арифметическое отрицательных чисел из массива А, состоящего из N элементов. Задача-3: Правда ли что слово начинае...

1) var a:string; s,i:integer; begin read(a); s:=0; for i:=1 to length(a) do if a[i]='o' then s:=s+1; Writeln(s); end.   2) var A:array[1..1000] of integer; N,i:integer; s:real; begin Read(N); s:=0; for i:=1 to N do read(A[i]); for i:=1 to N do s:=s+a[i]; s:=s/N; writeln(s:3:3); end.   3) var a:string; s:integer; begin read(a); s:=length(a); if a[1]=a[s] then writeln('Da') else writeln('Net'); end.   4) var a,b:integer; f:text; begin assign(f,'in.txt'); reset(f); read(f,a,b); Writeln(a+b); Writeln(a-b); Writeln((a+b)/2); close(f); end.   Вроде все корректно, проверь В 4 задаче, название файла in.txt можешь поменять на любое другое   По всем вопросам пиши в ЛС