Например, так:
Объяснение:
program sum100;
var s,a:integer;
begin
s:=0;
a:=1;
repeat
s:=s+100-a;
write(a,' ');
a:=a+4;
until a>49;
writeln('s= ',s);
readln;
end.
