Написать программу на языке pascal и нарисовать блок-схему программы. дано: прямоугольный треугольник; найти: площадь и периметр.

Var a,b,c:integer;
begin
writeln('Введите катеты прямоугольного треугольника и гипотенузу соответственно');
readln(a,b,c);
writeln('Площадь этого треугольника равна  ',0.5*a*b);
writeln('Перимитер этого треугольника равен  ',a+b+c);
end.