ПОМОГИТЕ, ПОЖАЛУЙСТА, СРОЧНО НУЖНО! делать нужно в паскале: составьте 3 программы, используя FOR, WHILE и REPEAT: распечатать последовательность чисел 3, 6, 9, 12, ...20 и найти их сумму

//Pascal var   a, s:  integer;   i: integer; begin     //цикл for   s := 0;   for i := 0 to 20 div 3 do     s := s + i*3;   writeln(s);     //цикл while   i := 3;   s := 0;   while i <= 20 do   begin     s := s + i;     i := i + 3;   end;   writeln(s);     //цикл repeat   i := 3;   s := 0;   repeat     s := s + i;     i := i + 3;   until i > 20;   writeln(s); end.