ucgen- tanım 2

PROGRAM UCGEN;

VAR A,B,C,TOPLAM,FARK:INTEGER;

BEGIN

WRITELN ('UCGENIN KENAR UZUNLUKLARINI GIRINIZ');
READLN (A,B,C);

IF ( (A <> ABS(B-C)) ) THEN
IF ( (B <> ABS(A-C)) ) THEN
IF ( (C <> ABS(A-B)) ) THEN


WRITELN ('UCGENDIR')

ELSE
ELSE
ELSE

WRITELN ('GIRILEN KENAR UZUNLUKLARINA GORE UCGEN TANIMLI DEGILDIR');

READLN;

END.