Помогите решить задачуЗаданы два массива А (5) и В (5). Подсчитать в них количество…

Program mas2; uses crt; vara: array[1… 5] of integer; b: array[1… 5] of integer; t,i,m1,m2: integer; beginrandomize; clrscr; writeln ('Vvedite T'); readln (t); for i: =1 to 5 do a[i]: =random (t+1); b[i]: =random (t+1); if a[i]m2 then begin for i: =1 to 5 do write (',a[i]) end else for i: =1 to 5 do write (',b[i]); writeln; end. Может не совсем красиво, но зато работает)