Заполнить массивы: Y — 47 значений номеров элементов; A — 5 местоимений; X — 30…

Не знаю как в qbasic, но думаю из паскаля переведешь: uses crt; varY: array[1… 47] of integer; X: array[1… 30] of integer; A: array[1… 5] of string; i: integer; beginclrscr; randomize; for i: =1 to 47 doY[i]: =i; A[1]: ='OH'; A[2]: ='OHA'; A[3]: ='OHO'; A[4]: ='OHИ'; A[5]: ='ТЫ'; for i: =1 to 30 doX[i]: =random (33) -7; for i: =1 to 47 dowrite (Y[i], '); writeln (); for i: =1 to 30 dowrite (X[i], '); writeln (); for i: =1 to 5 dowriteln (A[i]); end.