Перевести целые числа из десятичной системы в четверичную 523

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

var

x: real;

begin

readln(x);

writeln(round(x));

end.