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];
       myArray[1]:=a;
       myArray[2]:=b;
       myArray[3]:=c;
       v:array[1..5];
       v[1]:=a;
       v[2]:=b;
       v[3]:=c;
       v[4]:=d;
       v[5]:=a+b;
Begin
clrscr;
c:=a;
d:=b;

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