Создать N-S диаграмму с использованием пяти видов блоков (пример: действие, разветвление, множественный выбор, цикл, подпрограмма)Можно на листочке

1. Код на Python3 (!)
2. Файл в одной папке со скриптом

--- КОД ПРОГРАММЫ НИЖЕ ---

# -*- coding: utf-8 -*-
import sys, os

file = open(os.path.join(sys.argv[0], "diag3.txt"))
a = {}
for line in file.readlines():
pair = line.split()
a[float(pair[0])] = float(pair[1])
file.close()
keys = list(a.keys())
vals = list(a.values())
avg_p = sum(vals) / float(len(vals))
max_p = max(vals)
min_p = min(vals)
deltas = [vals[m]-vals[m-1] for m in range(1, len(vals))]
max_d = max(deltas)
min_d = min(deltas)
min_d_i = deltas.index(min_d)
near_d_0 = (keys[min_d_i-1], keys[min_d_i])
print("Среднее давление: {}".format(avg_p))
print("Максимальное давление: {}".format(max_p))
print("Минимальное давление: {}".format(min_p))
print("Наибольшая скорость нарастания давления: {}".format(max_d))
print("Угол поворота при зафиксированной скорости нарастания: {} <= a <= {}".format(near_d_0[0], near_d_0[1]))

// FreePascal

var
n, k, s: integer;
a: array of integer;
function IsPrime(n: integer): boolean;
var
i: integer;
begin
if n <= 1 then
Exit(False)
else
if n <= 3 then
Exit(True)
else
if (n mod 2 = 0) or (n mod 3 = 0) then
Exit(False);
i := 5;
while (i * i) <= n do
begin
if (n mod i = 0) or (n mod (i + 2) = 0) then
Exit(False);
i := i + 6;
end;
Exit(True);
end;
begin
s := 0;
write('n = ');
readln(n);
SetLength(a, n);
for k := 0 to (n - 1) do
begin
write('a[', k, '] = ');
readln(a[k]);
if IsPrime(k) then
s := s + a[k];
end;
writeln('ответ: ', s);
end.