Question

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

Answer 1

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

Answer 2

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