Найти произведение и сумму чисел больших 100 и меньших 200 и кратных 5 на языке программирования Pascal.Следующими способами: While,For,Repeat.

p - произведениеs - суммаi - цикловая переменная1. Цикл с предусловием Whilevarp, s, i : longint; [или integer]beginp := 1;s := 0;i := 101;while i < 200 dobeginif i mod 5 = 0 thenbeginp := p * i;s := s + i; end;i := i + 1; [или ing(i)]end;writeln(p);writeln(c)end.2. Цикл с постусловием Repeat varp, s, i : longint; [или integer]beginp := 1;s := 0;i := 101;repeatif i mod 5 = 0 thenbeginp := p * i;s := s + i; end;i := i + 1; [или ing(i)]until i >= 200;writeln(p);writeln(c)end. 3. Цикл For varp, s, i : longint; [или integer]beginp := 1;s := 0;for i := 101 to 199 dobeginif i mod 5 = 0 thenbeginp := p * i;s := s + i; end;end;writeln(p);writeln(c)end.