Напишите фрагмент программы на паскале ввода исходных данных для массивов, определённых в 1 и 2.

Таратата
USES crt;
var A: array[1..5] of real;
q: integer;
BEGIN
clrscr;
     for q:=q to 12 do
     begin
          write ( 'A ',1:2, '] = ') ; 
          readln(A[q])
     end;
тратата