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

Program As6(Inpit, Output);            

Объявление имени программы

Var         

Блок объявления глобальных переменных

S             : String; 

Переменная S - вводимое число

N             : Integer;              

Переменная N - количество разрядов в вводимом числе

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Выделение и печать цифр числа.');               

Формулировка цели алгоритма

Write ('Введите любое число: ');    

Запрос S - вводимого числа

ReadLn (S);         

Ввод S

N := Length (S);  

Заносим в N длину S, т.е. количество разрядов в вводимом числе

For i := 1 To N Do              

Цикл для i от 1 до N перебора всех символов введенной строки

Begin    

Начало тела цикла

Case S [i] Of        

Конструкция типа "Выбор": рассматриваем i-ый символ строки S

'0'..'9': WriteLn (i, '-ая позиция числа равна: ', S [i]);  

Если он лежит в диапазоне '0'..'9', т.е. является цифрой, то выводим его

End;      

Конец конструкции типа "Выбор"

End;      

Конец тела цикла

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.