Помогите! Даю 35б. Программирование. PASCALС клавиатуры вводятся 4 положительных числа

Здесь 4 варианта композиций 3 из 4х вероятны. Для квждой нужно проверить исполненье неравенства треугольника.

Неважно какая из сторон треугольника обязана быть меньше суммы 2-ух других

Var a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln('Нельзя составить треугольник из:');
if (a+blt;=c)or(a+clt;=b)or(b+clt;=a) then writeln(a,' ',b,' ',c);
if (a+blt;=d)or(a+dlt;=b)or(b+dlt;=a) then writeln(a,' ',b,' ',d);
if (a+clt;=d)or(a+dlt;=c)or(c+dlt;=a) then writeln(a,' ',c,' ',d);
if (b+clt;=d)or(b+dlt;=c)or(c+dlt;=b) then writeln(b,' ',c,' ',d);
end.

Пример:
1 2 3 4
Нельзя составить треугольник из:
1 2 3
1 2 4
1 3 4