Дано двузначное число. Найти его слогаемые . посчитайте сделать в паскале(к примеру 9+9=18)

var a : integer;

c:real;

begin

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

readln(a);

c:=a/2;

writeln('слагаемые: ', c, ' + ' , c);

end.