11 класс, проходим основы программирования на языке паскаль. учитель задал эту , не представляю как сделать по ней нужную программу, . даны 2 катета, значение которых вводится с клавиатуры. найти гипотенузу и площадь прямоугольного треугольника

Program prog;
uses crt;
var
a,b,c,s:real;
begin
write('катет a = ');
readln(a);
write('катет b = ');
readln(b);

writeln;
c:=sqrt(sqr(a)+sqr(b));
s:= (a*b)/2;

writeln('Гипотенуза с = ', c:0:3);
writeln('S = ', s:0:3);

end.