Оценки, полученные спортсменом в соревнованиях по фигурному катанию (в ), хранятся в массиве из 18 элементов. в первых шести элементах записаны оценки по обязательной программе, седьмом—двенадцатом – по короткой программе, в остальных – по произвольной программе. выяснить, по какому виду программы спортсмен показал лучший результат. написать программу в паскале буду

Var  a: array[1..18] of integer;   i,n,n2,max: integer; begin  for i: =1 to 18 do begin  case i of  1..6: begin write('введите ',i,'-ую оценку по обязательной программе '); readln(a[i]); n: =n+a[i]; if i=6 then begin max: =n; n: =0; n2: =1; end; end;   7..12: begin write('введите ',i-6,'-ую оценку по короткой программе '); readln(a[i]); n: =n+a[i]; if i=12 then begin if n> max then begin max: =n; n2: =2; end; n: =0; end; end;   13..18: begin write('введите ',i-12,'-ую оценку по произвольной программе '); readln(a[i]); n: =n+a[i]; if i=18 then begin if n> max then begin max: =n; n2: =3; end; n: =0; end; end;   end;   end;   case n2 of  1: write('лучшая оценка по обязательной программе = ',max);   2: write('лучшая оценка по короткой программе = ',max);   3: write('лучшая оценка по произвольной программе = ',max);   end; end.

Var a,b,c: integer;   begin writeln('введите стороны треугольника: '); readln(a,b,c); if (a = b) and (b = c) then writeln('равносторонний'); else writeln('неравносторонний'); readln end.