45 ! нужно в паскале: ввести x,y если оба чётные числа. вывести на экран квадрат их суммы. заранее большое !

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var (x,y):=ReadInteger2;
if x.IsEven and y.IsEven then write((x+y)**2);
end.

Program zadacha;
var
x,y:integer;
begin
writeln('Введите x:');
readln(x);
writeln('Введите y:');
readln(y);
writeln(Sqr(x+y));
end.