Составить блок схему и программу на языке паскаль для решения следущей задаси:…

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.