01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN_CASE

 PROGRAM treug;
   var
   a,b,c: real;
   treugolniki:char;
   i:integer;
   begin
   { ‚ў®¤ Ёб室­ле ¤ ­­ле }
   write('ўўҐ¤ЁвҐ ¤«Ё­л бв®а®­ ваҐгЈ®«м­ЁЄ ');
   {readln(a,b,c);}
   readln(i);

   case i of
   1:writeln('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ ­Ґ бгйҐбвўгҐв');
   2:writeln('ваҐгЈ®«м­ЁЄ б ¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ - а ў­®бв®а®­­Ё©');
   3:writeln ('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ Їаאַ㣮«м­л©');
   4:writeln ('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ а ў­®ЎҐ¤аҐ­­л©');
   5:writeln ('ваҐгЈ®«м­ЁЄ Ё­®©');
   else writeln ('­ҐЇа ўЁ«м­л© ўл室 Ё§ ®ЇҐа в®а ');
   end;
   {if ((a+b)<c) or ((a+c)<b) or ((b+c)<a)
  then  writeln('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ ­Ґ бгйҐбвўгҐв')
   else if (a=b) and (a=c)
        then  writeln('ваҐгЈ®«м­ЁЄ б ¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ - а ў­®бв®а®­­Ё©')
        else if (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(a)+sqr(b)))
             then writeln ('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ Їаאַ㣮«м­л©')
             else if (a=b) or (b=c) or (c=a)
                  then writeln ('ваҐгЈ®«м­ЁЄ  б¤ ­л¬Ё ¤«Ё­ ¬Ё бв®а®­ а ў­®ЎҐ¤аҐ­­л©')
                  else   writeln ('ваҐгЈ®«м­ЁЄ Ё­®©')}
                  readln;

 end.