ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.
Дано число n. В интервале от 1 до n сложить все числа, которые делятся на 3, и перемножить все, делящиеся на 2.

var n,a,b,c:integer;beginwrite('введите длину интервала: ');readln(n);a:=0;c:=1;for b:=1 to n do beginif (b mod 3 =0) then a:=a+b;if (b mod 2=0) then c:=c*b;end;writeln('сумма делящихся на 3=> ',a);writeln('произведение делящихся на 2=> ',c);end.