1)Найдите сумму S=0.3+0.6+0.9+...+3
2) найдите произведение Р=1/20*1/18*1/16*...*1/2
На языке Паскаль с помощью команд REPEAT и WHILE. Помогите пожалуйста!

Спасибо большое!

//Задание №1//цикл repeatvar i,s:real;begin  s:=0;  i:=0.3;  repeat     s:=s+i;     i:=i+0.3;  until i >= 3;  writeln('Сумма ',s);end.//Задание №2//цикл whilevar p:real;  i:integer;begin  p:=1;  i:=20;  while i>2 do begin     p:=p*(1/i);     i:=i-1;  end;  writeln('Произведение членов ряда ',p);end.