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

//Pascalvar  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.