Asignacion de valores

programa que asigna a una variable un valor (x).

program ejercicio5;
uses crt;
var
x,y:integer;
begin
clrscr;
Write('Ingrese un numero:');
read(x);
y:=x;
write(y);
readkey;
end.

-----------------------------------
program ejercicio5;
uses crt;
var
x,y:integer; (variables)
begin
clrscr;
Write('Ingrese un numero:');
read(x); {se carga el numero escrito por el usuario en la variable x}
y:=x; {a la variable (y) se le pasa el valor que tiene la variable (x)}
write(y); {muestra la variable (y)}
readkey;
end.