Kod: Zaznacz cały
program trojkat;
uses Crt;
var a,b,c: word;
begin
ClrScr;
writeln('podaj dlugosci trojkata');
readln(a,b,c);
if a<b+c then writeln ('nie mozna zbudowac trojkata')
else if b<a+c then writeln ('nie mozna zbudowac trojkata')
else c<a+b then writeln ('nie mozna zbudowac trojkata')
else writeln ('mozna zbudowac trojkat');
readln;
and.