задача в Pascal

[alina777]

Здравствуйте! У меня возникло затруднение в решении следующей задачи:
Дан двумерный массив размером 3*3. Получить новый массив путем увеличения каждого из элементов массива в 2 раза.

Я составила код, но не до конца:

Program mas;
const n=3;
      m=3;
var a:array [1..n,1..m] of integer;
k,i,j:integer;
begin
writeln ('vvedite a');
readln (a[i,j]);
for i:=1 to 3 do begin
for j:=1 to 3 do begin
a[i,j]:=2*a[i,j];

Прошу Вас дописать код до завершения. Заранее благодарю!

[slips]

Попробуй так

Program mas;
const n=3;
      m=3;
var a:array [1..n,1..m] of integer;
k,i,j:integer;
begin
       writeln ('vvedite a') ;
       for i:=1 to 3 do  
                           for j:=1 to 3 do
                           begin 
                                  readln (a[i,j]);
                                  a[i,j]:=2*a[i,j];
                           end;
end.

[slips]

Даже не так а вот так
Program mas;
const n=3;
m=3;
var a:array [1..n,1..m] of integer;
k,i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln ('vvedite a[',i,j,']') ;
readln (a[i,j]);
a[i,j]:=2*a[i,j];
end;
end.

[die_hard]

Думаю можно внести небольшую корректировку=)...
В условии задачи не было ведь конкретно сказано, что работать надо с целочисленными массивами, так что тип массива надо задавать как real