Дано целое двузначное число y.Составьте программу вычисления частного цифр числа.​

program q;

var

 a: integer;

 b: real;

begin

 b := 0;

 read(a);

 b := (a div 10 + a mod 10) / 2;

 writeln(b);

end.

На Pascal'e

*Проверил*