add question 7 6th list

lista-06/07/enunciado.txt

+Faça um programa que receba os valores antigo e atual de um produto. Use uma função que determine o percentual de acréscimo entre esses valores. O resultado deverá ser mostrado pelo programa principal.
+
+Exemplos de entradas
+10 15
+100 110
+134 134
+
+Saídas esperadas
+0.50
+0.10
+0.00
+
+program calcula_percentual;
+var antigo, atual: real;
+
+(* coloque aqui o codigo da sua funcao *)
+
+begin
+    read (antigo, atual);
+    while (antigo <> 0) or (atual <> 0) do
+    begin
+        writeln (aumento_percentual (antigo, atual):0:2);
+        read (antigo, atual);
+    end;
+end.