PROGRAM EX01;
  VAR A,B;
      C:CHAR;
      D:INT;
      E:REAL;
      F:ARRAY[1..2] OF INT ;
BEGIN
 F[2]:=2;
 D:=F[2]+2;
 A:='a';
 B:='b';
 WRITE(A);
WRITE(B);
 WRITE(D);
END.