uses    crt;
var     x, y, giatribieuthuc: integer;
begin
        repeat
                write('Nhap x: ');
                readln(x);
                write('Nhap y: ');
                readln(y);
        until(0<x) and (y<10);
        giatribieuthuc:=(x*x)+(2*x*y);
        write('Ket qua: ',giatribieuthuc);
        readln;

end.