{*******************}
{ ~~ Problema 36 ~~ }
{*******************}

  {In modulul <Crt> se contin instructiunile <ClrScr> si <ReadKey>, iar in <Strings> - <UpperCase>}
uses crt, strings;

label citeste;
var a, b, c: integer;
    msg: string;

begin
 ClrScr;
 msg:='Introdu masura a doua unghiuri ale unui triunghi (in grade):';
 citeste: writeln(msg);
 readln(a,b);
 if a+b>180 then
  begin
   writeln (a,' si ', b, ' nu pot fi unghiuri ale unui triunghi!');
   msg:='Mai introdu o data valorile a 2 unghiuri (in suma sa fi < 180):';
   goto citeste;
  end;
 c:=180-a-b;
 writeln(c);
 if (a = 90) or (b = 90) or (c = 90) then msg := 'dreptunghic' else
  if (a > 90) or (b > 90) or (c > 90) then msg := 'optuzunghic' else
   msg := 'ascutitunghic';

  {Functia <UpperCase> converteste sirul in majuscule}
 Writeln('Triunghiul nostru este ' + UpperCase(msg), '!');
 readkey;
end.