Программа на Python:

s = input('Введите целое пятизначное число: ')

print('Сумма 1 и 2 числа (',s[0],'+',s[1], '): ', int(s[0])+int(s[1]))

print('Произведение 3 и 4 числа (',s[2],'*',s[3], '): ', int(s[2])*int(s[3]))

print('Квадрат 3 числа (',s[2],'*',s[2], '): ', int(s[2])**2)

Программа на PascalABC.NET:

var s: integer;

begin

writeln('Введите целое пятизначное число: ');

readln(s);

writeln('Сумма 1 и 2 числа (',s div 10000,'+',(s mod 10000) div 1000, '): ', s div 10000 + (s mod 10000) div 1000);

writeln('Произведение 3 и 4 числа (',(s mod 1000) div 100,'*',(s mod 100) div 10, '): ', ((s mod 1000) div 100) * ((s mod 100) div 10));

print('Квадрат 3 числа (',(s mod 1000) div 100,'*',(s mod 1000) div 100, '): ', sqr((s mod 1000) div 100));

end.