Ответ:

var i,s:integer;

begin

 s:=0;

 for i:=1 to 99 do

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

 write('s=',s);

end.

var i,s:integer;

begin

 s:=0;

 i:=1;

 while i<=99 do  

 begin

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

   i:=i+1;

 end;

 write('s=',s);

end.

var i,s:integer;

begin

 s:=0;

 i:=1;

 repeat

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

   i:=i+1;

 until i>99;

 write('s=',s);

end.

Объяснение: