LISTA1_EX1 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX1_LISTA1 ;
var x,y: integer;

 Begin
    writeln ('Entre com o valor de x: ');
    readln (x);
    writeln ('Entre com o valor de y: ');
    readln (y);

    y := (x - y);
    x := (x - y);
    y := (x + y);

    writeln ('Novo valor de X: ', x);
    writeln ('Novo valor de y: ', y);
    readkey;

End.