Составьте программу, которая сравнивает два введенных числа и печатает большее. на языке паскаль

Uses crt; const   pi=3.14159265; var   x,y: real; begin   clrscr;   x: =0;   while x< =pi do begin       if x< pi/2 then y: =3*sin(x)+8       else y: =4*cos(2*x);       writeln('x=',x: 8: 5,',  y=',y: 8: 5);       x: =x+pi/10   end;   readkey end. тестовое решение: x= 0.00000,  y= 8.00000 x= 0.31416,  y= 8.92705 x= 0.62832,  y= 9.76336 x= 0.94248,  y=10.42705 x= 1.25664,  y=10.85317 x= 1.57080,  y=-4.00000 x= 1.88496,  y=-3.23607 x= 2.19911,  y=-1.23607 x= 2.51327,  y= 1.23607 x= 2.82743,  y= 3.23607 x= 3.14159,  y= 4.00000

Итак первые два символа кодируются кодовыми словами 0 и 10.  найдём для остав­ших­ся трех сим­во­лов наи­бо­лее ко­рот­кое пред­став­ле­ние, удо­вле­тво­ря­ю­щее усло­вию фано. из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. единственное подходящее трехзначное число  - 110 (111 не подходит по той же причине. что и 11). аналогично выбираем числа 1110 и 11110.  в итоге получается ряд: 0, 10, 110, 1110, 11110.общая длина = 1+2+3+4+5=15