Ссоч за 4 четверть 6 класс ! ( если не видно ) заполните схему "дизайн документации компьютерной игры "​

Program u; var i,j,k: integer; b: array[1..7] of string; a: array[1..7,1..3] of real; begin k: =0; writeln('запишите фамилии учеников в столбик'); for i: =1 to 7 do readln(b[i]); for i: =1 to 7 do writeln(b[i]); for i: =1 to 7 do begin writeln('запишите оценки' , b[i]); for j: =1 to 2 do read (a[i,j]); end; for i: =1 to 7 do a[i,3]: =(a[i,1]+a[i,2])/2 ; for i: =1 to 7 do begin writeln; write(b[i],' ',45a[i,1],' ',a[i,2],' средняя оценка ',a[i,3]); end; writeln; for i: =1 to 7 do if (a[i,1]=5) and (a[i,2]=5)then k: =k+1; writeln('количество отличников ',k); end.

Var   s: string;     i, a, b, c, f: integer;     begin   writeln('номер билета? ');     readln(s);       for i : = 1 to 3 do   begin     val(s[i], a, f);     b : = b + a;   end;       for i : = 4 to 6 do   begin     val(s[i], a, f);       c : = c + a;   end;       if c = b then writeln('билет счастливый! ')   ; else writeln('билет не счастливый! ');   readln ; end. вроде так