Mostrar x contenido en pantalla

Se desea capturar un numero dado por un usuario y devolverlo en pantalla.

program ejercicio2;
uses crt;
var
a:integer;
begin
clrscr;
Write('Diga un numero:');
read(a);
Write('Usted a escrito el numero:',a);
readkey;
end.

----------------
donde:
var {da inicio a las variables}

a {Nombre de la variable, esta puede ser cualquier letra o palabra --- Integer, es el tipo de dato que sera introducido por el usuario, este puede ser:integer,char,string--> hay mas pero estos son los mas utilizados}

Write('Diga un numero'); {mostrara en pantalla (Diga un numero), recuerden que para mostrar algo en pantalla es necesario que este entre dos -->' ' todo lo que pongan alli se mostrara en pantalla, a menos que sea una variable o constante la cual para mostrar su valor no necesita de ' '}

read(a); {Guardara el numero escrito por el usuario en la variable a}

Write('Usted a escrito el numero:',a); {se mostrara en pantalla 'Usted a escrito el numero:'} (y para mostrar la variable solo hay que poner una coma (,)y luego la variable que se mostrara.