Этим. паскаль. вывести на экран квадрат средней цифры пятизначного числа.

Var a: integer;    
begin  
readln (a);   
writeln (sqr((a mod 1000) div 100)); 
end.

 var    
a,b,i : integer;    
begin 
readln (a);   
for i := 1 to 2 do   
a := a div 10; 
b := sqr(a mod 10); 
writeln (b); 
end.