Program metszes;

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

Uses crt;

Const

        a=3;

        b=1;


Var
       c:integer;
       d:integer;




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

Writeln(c,'   ',d);

Readln;
End.