Pascal/Turbo Pascal - real con 1 decimal

ola!!!
como debo hacer para que al introducir numeros reales entre 0 y 10 solo me los acepte como maximo con 1 decimal??

Hola juan.

La sintaxis que se debe utilizar para producir salida en notación decimal ordinaria es:
writeln (ExpresionReal:AnchoTotal:Decimales):

Ejemplo:

x := 78.291;
writeln( x:0:1); {La salida sería 78.3}
writeln( x:0:2); {La salida sería 78.29}
writeln( x:0:0); {La salida sería 78}
writeln( 'x = ',x:0:3); {La salida sería x = 78.291}
writeln( X:0:4); {La salida sería 78.2910}

Saludos!