Лужайка в парке имеет форму прямоугольника размером а*b метров, разбитого на квадраты со стороной 1 метр. необходимо поставить внутри лужайки ограждения между некоторыми квадратами так, чтобы образовалась спиральная дорожка, закручивающаяся к центру лужайки. определите длину такого ограждения
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите a и b:');
if a<b then Swap(a,b); // a>=b всегда
b-=2;
var L:=0;
while b>=0 do begin
a-=1;
L+=a+b;
b-=1;
end;
Writeln('L=',L)
end.
Пример
Введите a и b: 7 4
L=18