Написать программу на языке паскаль abc! вводится целое положительное число. найти число, которое равно сумме квадратов цифр исходного числа. как можно быстрее и проще, заранее за !

Пользуйся, не идеально конечно. Может что где подправишь, что где подвинешь, но работать должно