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[myarray1..myarray3];
       myarray[1]:=a;
       myarray[2]:=b;
       myarray[3]:=c;
Begin
clrscr;
c:=a;
d:=b;

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