Задача на паскале: заполнить массив случ числами const n=5 (через команду random) в…

uses crt; vari, n, k: integer; mas: array [1… 5] of integer; beginrandomize; n: =5; for i: =1 to n domas[i]: =random (1000)+1000; for i: =1 to n dowrite (mas[i],'); writeln; for i: =1 to n do beginmas[i]: =mas[i] mod 100 div 10; if mas[i] mod 2=0 then k: =k+1; end; writeln (k); readkey; end.