Pascal/Turbo Pascal - ayuda a resolver ejercicio en pascal

program Ejercicio;

var n:integer;

    c,rc,s:real;

begin

  write('Ingrese valor de n: ');

  readln(n);

  {cuadrado de n}

  c:=n * n;

  {raiz cuadrada de n}

  rc:=sqrt(n);

  {suma de n + cuadrado de n}

  s:=n + c;

  {mostrar todo}

  writeln;

  writeln('Numero: ',n);

  writeln('Cuadrado: ',c:4:2);

  writeln('Raiz cuadrada: ',rc:4:2);

  writeln('Numero + cuadrado: ',s:4:2);

end.