begin
var (a, b) := ReadReal2('Введите длины катетов:');
Println('Площадь равна', a * b / 2, 'периметр равен', a + b + Sqrt(a * a + b * b))
end.
