Запишите формулы, соответствующие логическим схемам​

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

смотри блок-схему в приложенном файле

так как число , имеющих «тройки» по и , равно 7, то число учеников, имеющих только две «тройки» - по и по , равно 7-5=2. тогда 17-4-5-2=6 учеников имеют две «тройки» - по и по языку, а 22-5-2-11=4 ученика только две «тройки» - по и по языку. в этом случае без «тройки» учится 40-22-4-6-4=4 ученика. а имеют «тройки» по двум предметам из трех 6+2+4=12 человек.

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.