Контрольная работа: Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

for i:=n-1 downto 0 do

if (a[i]<>',') and (i<>0) then b:=a[i]+b

else

begin

write(b);b:='';

if i<>0 then write(',')

end;

write('.');

readln

end.

Результат роботи програми: