Вот график нарисованный wolframalpha
вводимые данные "parametric plot (cos t^2, sin t^2)"
1 - 48
2 - 52
3 - 4
4 -
var a: array [1..12] of integer;
i,n,k: integer;
srarifm: real;
Begin
For i:=1 to 12 do
begin
read(a[i]);
end;
For i:=1 to 12 do
Begin
if a[i]>1 then begin n:=n+1; K:=k+a[i]; end;
end;
srarifm:=k/n;
writeln;
Write(srarifm);
end.
Как назовёшь, так и будут называться. Программы обычно используют вариант б).