Program metszes;

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

Uses crt;

Const

        a=3;

        b=1;


Var
       c:integer;
       d:integer;
       e:integer;



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

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