Вычисление остатка от  деления  одного числа на другое — Pascal(Паскаль)

Program Pro_46(Input, Output); 
Var 
X, Y: Real;
Res : Real;
 
Begin
 
WriteLn ('PASCAL: Вычисление остатка от деления одного числа на другое.');
Write ('Введите первое число: '); 
ReadLn (X); 
Write ('Введите второе число: '); 
ReadLn (Y); 
 
If (Y <> 0) 
Then 
Begin
Res := X - Trunc (X / Y) * Y;
WriteLn ('Остаток от деления = ', Res: 15: 5);
End
Else 
WriteLn ('Деление невозможно.');
 
ReadLn;
End.