{5 elemű tömb}

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

End.