Напишите программу, которая считывает сообщение, затем номер. после этого программа выводит букву из сообщения с таким номером, причём считается, что номера букв отсчитываются с единицы. если введённое число не является правильным номером буквы, вывести «ошибка». на языке phyton

знаки той же арифметики, если эмоции- те же смайлики.

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!