Написать программу на паскале с=корень а в квадрате + b в квадрате

Varc,a,b : real;beginwriteln('введите длину а.');readln(a);writeln('Введите длину b.');readln(b);c:= sqrt(sqr(a)+sqr(b));if c>0 thenwriteln ('С = ',c)else writeln('Такого С не существует.');end.

Алгоритм ветвление, поэтому должно быть верно.