Problems
*Frame 2
var number: integer; i: integer; begin readln(number); i:= 0; writeln('***'); repeat begin writeln('* *'); i:=i+1; end; until (i=number-2); writeln('***'); end.
var number: integer; i: integer; begin readln(number); i:= 0; writeln('***'); repeat begin writeln('* *'); i:=i+1; end; until (i=number-2); writeln('***'); end.