Вычисление остатка от  деления  одного числа на другое.

Program Pro_46(Input, Output);     

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

Var         

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

X, Y        : Real;    

Делимое и делитель соответственно

Res         : Real;    

Остаток от деления чисел

Begin    

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

WriteLn ('PASCAL: Вычисление остатка от деления одного числа на другое.');              

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

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

Запрос ввода       первого числа

ReadLn (X);         

Ввод первого      числа

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

Запрос ввода       второго числа

ReadLn (Y);         

Ввод второго       числа

If (Y <> 0)             

Если делитель не равен 0

Then     

То...

Begin    

Начало блока "ТО"

Res := X - Trunc (X / Y) * Y;            

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

WriteLn ('Остаток от деления = ', Res: 15: 5);              

Форматированный вывод найденного значения Res

End        

Конец блока "ТО"

Else       

Иначе

WriteLn ('Деление невозможно.');

Сообщение о невозможности деления

ReadLn;

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

End.       

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