напишите в Паскаль по этой блок схеме

Странный метод :)

Надпись слева я не разобрал, оставил со знаком вопроса, подправите позже этот текст. И, если в извещеньях  x1 и x2 необходимо было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').

Сама программка:

var

 x1, x2, y: real;

begin

 Println('Введите значения x1, x2, y через пробел и нажмите Enter');

 Readln(x1, x2, y);

 x1 := y - x1;

 x2 := y - x2;

 if x2 lt; 0 then

   x2 := -x2;

 if x1 lt; 0 then

   x1 := -x1;

 if x1 = x2 then

   Println('В улетит?')

 else if x1 gt; x2 then

   Println('x2 съест')

 else Println('x1 съест');

end.