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

PROGRAM treug;
var
a,b,c: real;
begin
{ ‚ў®¤ Ёб室­ле ¤ ­­ле }
write('ўўҐ¤ЁвҐ ¤«Ё­л бв®а®­ ваҐгЈ®«м­ЁЄ ');
readln(a,b,c);
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 ('ваҐгЈ®«м­ЁЄ Ё­®©')
end.