Program Pro_45 (Input, Output);
Var
X, Y: Real;
Res : LongInt;
Begin
WriteLn ('PASCAL: Вычисление целой части от деления одного числа на другое.');
Write ('Введите первое число: ');
ReadLn (X);
Write ('Введите второе число: ');
ReadLn (Y);
If (Y <> 0)
Then
Begin
Res := Trunc (X / Y);
Writeln('Целая часть от деления = ', Res);
End
Else
Writeln('Деление невозможно.');
ReadLn;
End.