Составить блок схему и программу на языке паскаль для решения следущей задаси: определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.

Program Vz;  uses crt; var a,b,c:real; begin clrscr; write('Введите 3 числа:'); readln(a,b,c); if((a<>0) and (b<>0) and (a+b=0)) or ((a<>0) and (c<>0) and (a+c=0)) or ((b<>0)and (c<>0) and (b+c=0)) then writeln('Есть такая пара ! ') else writeln('Нету  таких !'); readkey; end.