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

Program Vz; 

uses crt;var a,b,c:real;beginclrscr;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.