паскаль.

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

Только это кусок программы, а не полная.

readln(x);x := x div 100;x := x mod 10;x := x * x;writeln(x);вроде так. 

var  n:longint;begin  Write('Введите пятизначное натуральное число: ');  Read(n);  Writeln('Квадрат средней цифры равен ',    sqr((n div 100) mod 10))end.Тестовое решение:Введите пятизначное натуральное число: 15624Квадрат средней цифры равен 36