var
a,b,h,c:real;
begin
writeln ('Введите меньшее основание a');
readln (a);
writeln ('Введите большее основание b');
readln (b);
c:=(b-a)/2*2; {боковая сторона}
h:=sqrt(c*c-power(((b-a)/2),2)); {высота}
writeln ('Периметр равен ',c+c+a+b);
writeln ('Площадь равна ',(a+b)/2*h);
end.