Question

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

Answer 1

 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.

Answer 2

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