Паскаль.
вывести на экран квадрат средней цифры пятизначного числа.
Readln(x);
x := x div 100;
x := x mod 10;
x := x * x;
writeln(x);
вроде так.
Оцени ответ
