1)найдите сумму s=0.3+0.6+0.9++3 2) найдите произведение р=1/20*1/18*1/16**1/2 на языке паскаль с команд repeat и while. !

//Задание №1
//цикл repeat

var i,s:real;
begin
  s:=0;
  i:=0.3;
  repeat
     s:=s+i;
     i:=i+0.3;
  until i >= 3;
  writeln('Сумма ',s);
end.

//Задание №2
//цикл while

var 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.