Составьте программу на языке паскаль

Program S1;var a, b: real;beginreadln(a, b);writeln('гипотенуза - ', sqrt(a*a+b*b), '; Площадь - ', a*b/2);end.