var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.
Program aaa;
var
a,b,c,d,s: real;
begin
writeln('введите a, b, c, d');
readln(a,b,c,d);
if (a*b+c*d)>=(a*c+b*d)
then
if (a*b+c*d)>=(a*d+b*c)
then s:=a*b+c*d
else s:=a*d+b*c
else
if (a*c+b*d)>=(a*d+b*c)
then s:=a*c+b*d
else s:=a*d+b*c;
writeln(s)
end.
Var
n:integer;
begin
Write('n = '); Read(n);
if (n mod 2=0) then Writeln('Число четное')
else begin
Write('Число нечетное и оно ');
if Abs(n mod 10)<>7 then Write('не ');
Writeln('оканчивается цифрой 7')
end
end.
<u>Примеры</u>
n = 3538
Число четное
n = 642301
Число нечетное и оно не оканчивается цифрой 7
n = 6306547
Число нечетное и оно оканчивается цифрой 7
n = -546347
Число нечетное и оно оканчивается цифрой 7