Написать программу на паскале
С=корень а в квадрате + 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.

Отправил в комментарии,чтобы скопировал нормально по строкам(Программа рабочая,проверил в компиляторе)

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.

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