Вопрос Помогите составить программу в turbo pascal 7.0

[ShooterZXC]

Помогите составить программу в TurboPascal 7.0 с использованием массивов
//otvet.imgsmail.ru/download/68615577_a4d574d231a0d13e2b8f2d79f0647719_800.jpg

 

[аварит]

for i:=1 to 3 do for j:=1 to 4 do if a[i,j]=0 then b[i,j]:= 0 else b[i,j]:=2.1*a[i,j];

 

[MAKSIS]

for i:=1 to 3 do for j:=1 to 4 do if a[i,j]=0 then b[i,j]:= 0 else b[i,j]:=2.1*a[i,j];