Lista1_Ex3

// Aluno: Luiz Henrique Forino
// Programação 1, professor Thiago PX

program L1_Q3;
uses crt;
const
        mil = 1000;
var
        n1, n2, n3, n4 : integer;

begin
        textbackground (white);
        textcolor (blue);
        clrscr;
        writeln ('Digite o primeiro valor: ');
        readln (n1);
        writeln ('Digite o segundo valor: ');
        readln (n2);
        writeln ('Digite o terceiro valor: ');
        readln (n3);
        writeln ('Digite o quarto valor: ');
        readln (n4);

        if (n3*n3) >= mil then
           writeln ('Número: ', n3, '  Quadrado: ', (n3*n3))
        else
        begin
           writeln ('Numero: ', n1, '  Quadrado: ', (n1*n1));
           writeln ('Numero: ', n2, '  Quadrado: ', (n2*n2));
           writeln ('Numero: ', n3, '  Quadrado: ', (n3*n3));
           writeln ('Numero: ', n4, '  Quadrado: ', (n4*n4));
        readkey;
        end;
end.