repeat.pl0

pl0语言拓展

PROGRAM EX01;
VAR B,C;
BEGIN
C:=0;
READ(B);
 REPEAT C+=10;
 DOWHILE C<B;
 WRITE(C);
END.