Напиши программку: Можно ли на листе бумаги, со гранями x см

Размышляю, что вы пишете программки на Паскале. Я в нём не очень силён, но попробую решить:
program name;
var x, y, a, b: real;
begin
       write('Введите x, y, a, b: ');
       readln(x,y,a,b);
       if (x gt; a) then begin
             if(y gt; b) then begin
                  write('Треугольник со гранями ', a);
                  write(' и ', b, ' поместится на листе бумаги.');
                  end;
             else writeln('Треугольник не поместится на листе бумаги');
        else writeln('Треугольник не поместится на листе бумаги');
end.