Program metszes;

{A konstanst a változó számolja ki!}

Uses crt;

Const

        a=3;

        b=1;


Var
       c:integer;
       d:integer;
       e:integer;
       myArray:array[1..3] of integer;

       v:array[1..5] of integer;

Begin
       myArray[1]:=a;
       myArray[2]:=b;
       myArray[3]:=c;




       v[1]:=a;
       v[2]:=b;
       v[3]:=c;
       v[4]:=d;
       {v[5]:=a+b;}
       v[5]:=a+c;

clrscr;
c:=a;
d:=b;

Writeln(c,'   ',d);
e:=c+d;
Writeln;
Writeln('A ket szam összege:',e );
Writeln;
Writeln('v[3]+v[5]= ',v[3]+v[5]);
Readln;
End.