Pascal ABC: Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь

Program prtr; var a,b,c,S: real; begin readln(a); //1 катет readln(b); // 2 катет c=sqrt(a*a+b*b); //теорема пифагора S=0.5*a*b; //площадь writeln(c); writeln(S); end.