ЗАДАЧА. Составить 2 массива с одинаковым количеством элементов по правилу: 1…

program z1; uses crt; var i,l,m: integer; a,b: array[1… 20] of integer; beginrandomize; repeatwriteln ('ââåäèòå L è M'); readln (l,m); until l<>m; for i: =1 to 20 dobeginrepeata[i]: =random (200); until a[i] mod l=0; write (a[i]: 4); end; writeln; for i: =1 to 20 dobeginrepeatb[i]: =random (200); until b[i] mod m=0; write (b[i]: 4); end; end.