Задачи по информатике! Помогите пожалуйста!

var x1,x2,x3,x4,x5:real;beginreadln(x1,x2,x3,x4,x5);if (x1>x2)and(x1>x3)and(x1>x4)and(x1>x5) then writeln('x1 win')else if (x2>x3)and(x2>x4)and(x2>x5) then writeln('x2 win')else if (x3>x4)and(x3>x5) then writeln('x3 win')else if (x4>x5) then writeln('x4 win')else writeln('x5 win');end.yezik passal