1.скласти програму для обчислення гіпотенузи прямокутного трикутника (паскаль)

Var
A, B, C: real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
C := sqrt((a * a) + (b * b));
writeln('Гіпотенуза прямокутного трикутника дорівнює ', c);
end.