Cuadrado medio

PROGRAM cuadradomedio;

VAR
a, b , c , d ,x ,cuadradomedio :integer;


BEGIN

write('Introduzca un n£mero entero ');
readln(x);
Writeln ('N£mero introducido= ',x);
abcd:= sqr(x);
Writeln ('Cuadrado del n£mero= ',abcd );
cuadradomedio:=(abcd DIV 10) MOD 100;
Writeln( 'Siguiente n£mero seudoaleatorio= ',cuadradomedio );

END.