Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.

Writeln((79+51)*((79-51) div 2+1)/2);

Var i,s : Integer;Begin  s:=0;  For i:=50 to 80 do If Odd(i) then s:=s+i;  Writeln(s);    s:=0;  i:=50;  While i<=80 do  Begin    If Odd(i) then s:=s+i;    Inc(i);  end;  Writeln(s);    s:=0;  i:=50;  Repeat    If Odd(i) then s:=s+i;    Inc(i);  Until i>80;  Writeln(s);end.