Помогите 31,30,36 срочно

30) DIM A%, Min%, Max% CLS INPUT A Min = A Max = A WHILE (A<>0) IF AMax THEN Max = A END IF INPUT A WEND PRINT ;"Min = "; Min PRINT ;"Max = "; Max END 31) DIM N%, F# CLS F = 1 INPUT "N = ", N FOR i = 1 TO N F = F*i NEXT i PRINT ;"N! = "; F END 36) DIM d%, N&, S& CLS INPUT "N = ", N S = ABS(N) d = 0 WHILE ((S > 0) AND (d <= N / 2)) d = d + 1 IF N MOD d = 0 THEN S = S - d END IF WEND IF S = 0 THEN PRINT N; " - sovershennoe "; ELSE PRINT N; " - NE sovershennoe"; END IF END