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

Question

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

Answer 1

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.