PascalABC

Помогите решииить!! Задали задание,а я в этом полный ноль!!
По введенным с клавиатуры длинам трех отрезков определить:можно ли из них составить треугольник?

Это же проще, чем пукнуть в лифте.

代码:

program Project1;
{$APPTYPE CONSOLE}
var a1,a2,a3,base:real;
begin
write('Enter 1: ');
readln(a1);
write('Enter 2: ');
readln(a2);
write('Enter 3: ');
readln(a3);
if a1>=a2 then base:=a1
else
base:=a2;
if a3>base then base:=a3;
if (a1+a2+a3-base)>base then writeln('Possible') else
writeln('IMPOSSIBRU');
readln;
end.

Только нас в школе не учат писать вторую строку
{$APPTYPE CONSOLE}

Училка спалит

А я ее и не писал, ide сама паяет. ПаскальАБЦ, кстати, ее не добавляет.