Вывести на экран сумму чисел от 10(не включительно) до 50(не включительно) .

Var
i,s:integer;

begin
s:=0;
for i:=11 to 49 do
begin
s:=s+i;
end;
writeln(s);
readln;
end.
должна работать

На языке Си код будет выглядеть так.