Tính Tổng S=1+3+…+75 viết chương trình

uses crt;

var i,s: integer;

begin

clrscr;

for i:=1 to 75 do

if i mod 2<>0 then s:=s+i;

writeln (‘tong la: ‘,s);

readln;

end.