Нарисовать блок схему для решения -калькулятор. он умеет выполнять сложения и вычитания двумя числами.

Вот. Сложение в вычитание 2мя числами. Возможно 3 исхода: 1)Сложение этих двух, 2) Вычет из первого второе, 3) Вычет из второго первое

CLS
INPUT "M = ", M
FOR I = 1 TO M
A = 2 * I * I + 5 * I * I
PRINT I, "Y ="; A
NEXT I
   
CLS
K = 1
F = 1
N = 1
DO WHILE N < 16
        Z = K - 1
        DO WHILE Z > 1
                IF K \ Z = K / Z THEN
                        F = 0
                        EXIT DO
                ELSE
                        Z = Z - 1
                END IF
        LOOP
        IF F = 1 THEN
                PRINT N, K
                N = N + 1
        END IF
        K = K + 1
        F = 1
LOOP

Const n=15;
var
a:array[1..n]of integer;
i,i_max:integer;
begin     
    for i:=1 to n do       
      begin             
          a[i]:=random(4)+15;           
          writeln(a[i]);         
      end;     
writeln;   
     for i:=1 to n do         
         write(a[i]:4);         
              writeln;     
     i_max:=1;     
         for i:=2 to n do         
           if a[i]>a[i_max]then           
              i_max:=i;     
         for i:=1 to n do       
             if a[i]mod 5=0 then           
                 a[i]:=a[i_max];     
        for i:=1 to n do       
           write(a[i]:4);
            end.