Выполнить обратную операцию: «перевести» запись с языка pascal в нормальную форму:
r=2+3*x*y-sqrt(64+sqr(k)/6*x

ответ:

r=2+3xy-(64+k²/6x)²

сомневаюсь, но возможно так.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

часть схемы, информацию - канал.