var a,b: real;
begin
writeln('введите a, b');
readln(a);
readln(b);
a := (a + b) * 2; // периметр
b := Trunc(a / 2);
if a - 2*b < 2 then b := b - 1;
writeln(b:0:0);
end.
var i, n: integer;
begin
n := 35;
for i := 10 to 15 do
writeln('t=', i:2, ' A=', n*i);
end.