Помогите, пожалуйста, с задачами в Паскале!!! Обе задачи решить тремя способами (for, while, repeat)1. Вывести последовательность чисел на экран 12, 24, 36, ... , N2. Найти сумму чисел 6, 12, 18, ... , N

1.1)var n,i:integer; begin writeln('Введите число n'); readln(n); for i:=1 to n do begin if (i mod 12=0) then write(i,' '); end; end. 1.2)var n,i:integer; begin writeln('Введите число n'); readln(n); i:=1; while (i<=n) do begin if (i mod 12=0) then write(i,' '); i:=i+1; end; end. 1.3)var n,i:integer; begin writeln('Введите число n'); readln(n); i:=1; repeat if (i mod 12=0)then write(i,' '); i:=i+1; until (i>n); end. 2.1)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); for i:=1 to n do beginif (i mod 6=0)then s:=s+i; end; writeln('Сумма равняется ',s); end. 2.2)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); i:=1; while (i<=n) do begin if (i mod 6=0) then s:=s+i; i:=i+1; end; writeln('Сумма равняется ',s); end. 2.3)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); i:=1; repeat if (i mod 6=0) then s:=s+i; i:=i+1; until (i>n); writeln('Сумма равняется ',s); end.