{this is an example}
int A,B;
bool C;
string D;
D:= 'scanner';
C:=A + B / 7;
do 
A:=(A+C+6)*4/B-B*4
while A<=D
