PROG 5

PROGRAM PROG5;
USES WINCRT;
VAR
   P,Q : INTEGER;
BEGIN
   P := 3; Q := 4;
   WHILE P<=7 DO
       BEGIN
           WRITE(P, ' ',Q, ' ');
           P := P+1; Q := Q+2;
       END;
       WRITELN;
       WRITELN('ACHMAD NABIL, M.Kom');
       WRITELN('    16.230.0059'    );
END.