Не знаю, как именно вам нужно вводить числа, передалайте под ваши нужды:) решение получается такое: На Pascal: program zadacha; var a,b:double; begin readln(a); //Ввод первого угла readln(b); //Ввод второго угла if 180 - (a + b) = 90 then writeln('Yes') else writeln('No'); end.