Опоюределить разность между суммой четных и нечетных из отрезка от 1 до 50...
Цикл с параметром
Заранее спасибо

А все спасибо

Переменная целого типа.. Как и Sn, как и A

Вывести n значков *

Var A,Sc,Sn:integer;BeginSc:=0;Sn:=0;For A:= 1 to 50 do   if A mod 2 = 0 then Sc:=Sc+A   else Sn:=Sn+A;WriteLn(Sc-sN)End.