PROGRAM test;
CONST MAXN := 20, MAXP := 10000;
INTEGER: i, j, k;
REAL: product;
BOOLEAN: ARRAY MXC[5,3,8]
BEGIN
READ n;
IF E<1 THEN
E:=1;
WRITE A
ELSE
WHILE A>B
DO
WRITE A,A+B*C;
a := a + b;
a := NOT c = b;
function(a,b,c)
END.