Помогите, пожалуйста! Дополнить программку, чтобы она отыскала сумму четных, сумму кратных

Помогите, пожалуйста! Дополнить программку, чтоб она нашла сумму четных, сумму кратных 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);
......