Заданы два числа. Напишите пожалуйста программу для нахождения частного этих чисел. Округлите результат до десятых, оставив в дробной части одну цифру.

var A,B,Divd,Rounds: real;

begin

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

 read(A);

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

 read(B);

 Divd := A / B;

 Rounds := round((Divd * 10)) / 10;

 write('Число: ' + Rounds);

end.