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