Решение. Если -- заданные длины катетов треугольника, то и -- его периметр и площадь. Поэтому программа на языке Zonnon будет содержать всего лишь два оператора -- ввод исходных данных и печать ответа.
module ПериметрПлощадь;
var A,B : real;
begin
read(A,B);
writeln('Периметр=', A+B+Sqrt(Sqr(A) + Sqr(B)),
'; площадь=', A
B/2)
end ПериметрПлощадь.