uses crt;

var

price,total : Real;

clrscr;
repeat
write('Please enter the price of the next article: $');
readln(price);
writeln;
total := total + price;
until Price = 0;

if total > 100 then total := total * 0.95;

Writeln('Then total price was: $', total : 0 :2);
readln;