begin if（a＞1）or（y＜6）then c=c+x； if（a＜25）and（c＞0） then...
begin
if（a＞1）or（y＜6）thenc=c+x；
if（a＜25）and（c＞0） thenc=c*y；