Паскаль. Напишите ветвящийся алгоритм по блок-схеме. Найти периметр, площадь прямоугольного треугольника и радиус описанной окружности, если даны длины его катетов a и b.​

program pr;

var

a,b:integer;

begin

readln(a,b);

while(a<=b) do readln(a,b);

writeln(0.5*a*b,', ',a+b+sqrt(a*a+b*b));

end.