Помогите, пожалуйста! Дополнить программу, чтобы она нашла сумму четных, сумму кратных 3, разницу между этими суммами. Найти сумму чисел, которые делятся на 2 и те же числа, которые делятся на 3.
Начало программы

Program tr;
Var c, t, n: real; I: integer;
Begin
N:=0;
C:=0;
T:=0;
For I:=50 to 100 do
Begin
Write (I:3);
N:=n+1;
If I mod 2=0 then c:=c+1;l
If I mod 3=0 then t:=t+1;
End;
Write (‘всего’, n:4, ‘четное’, с:4, ‘кратные3’, t:4);
......

Var r, t, n,sum, sumk: real; I:integer; beginN:=0; r:=0; T:=0; for I:=50 to 100 do beginwrite(I: 3); N:=n+1; if I mod 2=0 then sum:=sum+i;if I mod 3=0 then sumk:=sumk+i; end;writeln;write ( ' четные ', sum:4, ' кратные 3 ', sumk:4, ' sum  - sumk ', (sum  - sumk):4);end.