PROGRAM MARKS;
VAR A:ARRAY[1..10] OF INTEGER;
I,X:INTEGER;
BEGIN
WRITELN('MARKS QUERY:');
WRITELN('<<INPUT STAGE>>');
FOR I:=1 TO 10 DO
BEGIN
WRITE('MARK(',I,')? ');
READLN(A[I])
END;
WRITELN('<<QUERY STAGE>>');
WRITE('NO?');
READLN(X);
WHILE X <> 0 DO
BEGIN
WRITELN('MARK OF NO.',X,' :', A[X]);
WRITE('N0?');
READLN(X)
END
END.