LISTA2_EX8 2014/02

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

Program EX8_LISTA2 ;
var x,y,w,h: integer;

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

        if (x >= 1) and (x <= w) and (y >= 1) and (y <= h) then
            begin
                writeln ('Está dentro.');
            end
        else
            writeln ('Está fora.');

End.