Program Pzim ; var VT:array [1..20] of integer; i:integer; Begin for i:=1 to 20 do VT[i]:=3*i; for i:=1 to 20 do Writeln(VT[i]); End.