помогите составить программу по паскалю

Question

вычислить периметр и площадь прямоугольного треугольника по длинам его катетов 
найдите значение выражение по формуле ln(2+ квадратный корень (atctg x*sin1/x)

Лариса Панкова · Accepted Answer

program treugolnik; 
uses crt; 
var 
a,b,c,s,p:real; 
begin 
readln(a,b); 
s:=a*b/2;{нашли площадь} 
c:=sqrt(a*a+b*b);{нашли третью сторону по теореме пифагора} 
p:=a+b+c;{перимитр} 
writeln(p,' ',s); 
end.

{вторая программа} 
program pop; 
uses crt; 
var 
x:real; 
begin 
readln(x); 
writeln( ln(2+sqrt(arctan(x)*sin(1/x)))); 
end.