{5 elemű tömb}

Program tombszor;
Uses crt;
Const
v1=1;
V2=2;
V3=3;
V4=4;
V5=5;
Var
v:array[1..5] of integer;
Begin
ClrScr;
Writeln(v1,'   ',v1*2);
Writeln(v2,'   ',v2*2);
Writeln(v3,'   ',v3*2);
Writeln(v4,'   ',v4*2);
Writeln(v5,'   ',v5*2);
readln;

End.