Написать программу на заполнение 2-х массивов

unit math; var d,m: array[1… 20] of integer; sr: real; kol,s: integer; Begin for i: =1 to 20 do begin d[i]: =RandomRange (140,180); writeln ('Рост ',i,'-ой девочки=',d[i],' см'); m[i]: =RandomRange (140,190); writeln ('Рост ',i,'-го мальчика=',m[i],' см'); end; s: =0; sr: =0; kol: =0; for i: =1 to 20 do s: =s+m[i]; sr: =s/20; writeln ('Средний рост мальчиков=',sr,' см'); for i: =1 to 20 do if d[i]>sr then kol: =kol+1; writeln ('Колличество девочек превышающий средний рост мальчиков=',kol); End.