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

Program Pro_45 (Input, Output);    

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

Var         

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

X, Y        : Real;    

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

Res         : LongInt;             

Целая часть от деления

Begin    

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

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

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

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

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

ReadLn (X);         

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

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

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

ReadLn (Y);         

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

If (Y <> 0)             

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

Then     

То...

Begin    

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

Res := Trunc (X / Y);         

Присваиваем Res целую часть от деления чисел

Writeln('Целая часть от деления = ', Res);   

Вывод найденного значения Res

End        

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

Else       

Иначе

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

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

ReadLn;

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

End.       

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