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

низнаю

program cyb7;
var
a, b, c, S: real;
begin
write('Vvedite dlinu 1 katet:');
readln(a);
write('Vvedite dlinu 2 katet');
readln(b);
c:= Sqrt(Sqr(a)+Sqr(b));
S:= 0.5*a*b;
writeln('Gipotenuza treugolnika = ', c);
writeln('Ploshad treugolnika ravna = ', S);
readln;
end.

program cyb7;
va
a, b, c, S: real
begi
write('Vvedite dlinu 1 katet:')
readln(a)
write('Vvedite dlinu 2 katet')
readln(b)
c:= Sqrt(Sqr(a)+Sqr(b))
S:= 0.5*a*b
writeln('Gipotenuza treugolnika = ', c)
writeln('Ploshad treugolnika ravna = ', S)
readln
end