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

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

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