program ucgen_cesidi;
uses crt;
var
a,b,c:integer;
begin
(*Kendimin yazmış olduğum bir pascal programı.... üçgenin üç kenar uzunluğunu giriyorsunuz ve size hangi çeşit üçgen olduğunu söylüyor*)
writeln (' * * * * * HOSGELDINIZ ! BU BIR UCGEN CESIDI BELIRLEME PROGRAMIDIR * * * * * ');
writeln;
writeln (' ==========> LUTFEN UCGENINIZIN UC KENAR UZULUGUNU GIRINIZ <========== ');
writeln;
write ('UCGENIN BIRINCI KENAR UZUNLUGUNU GIRINIZ : '); readln (a);
writeln;
write ('UCGENIN IKINCI KENAR UZUNLUGUNU GIRINIZ : '); readln (b);
writeln;
write ('UCGENIN UCUNCU KENAR UZUNLUGUNU GIRINIZ : '); readln (c);
writeln;
writeln;
if (a+b<c) or (b+c<a) or (a+c<b) or (a-b>c) or (a-c>b) or (b-c>a) or (b-a>c) or (c-a>b) or (c-b>a) then
writeln ('BU DEGERLERLE BIR UCGEN OLUSTURULAMAZ')
else
if (a=b) and (b=c) and (c=b) then
writeln ('UCGENINIZ ESKENAR UCGENDIR') else
if (a=b) or (a=c) or (b=c) then
writeln ('ÜÇGENINIZ IKIZKENAR UCGENDIR')
else if (a<>b) and (b<>c) then
writeln ('UCGENINIZ CESITKENAR UCGENDIR');
(*Efendy26 TARAFINDAN YAZILMIŞTIR... SAYGILAR *)
END.