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

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.