DECL INTEGER b,c, d; START INTEGERREAD b; b:=a+(d:c); WHILE () INTEGERWRITE a; STOP