Паскаль, написать программу

var
a, b, c, d: integer;
kc, kd, sc: integer;
begin
print('Введите A, B, C, D:');
read(a, b, c, d);
println('Числа:');
for var i := a to b do begin
print(i);
if i mod c = 0 then kc += 1;
if i mod d = 0 then kd += i;
if (i mod 10 * i div 10) = (i mod 10 + i div 10) then sc += 1;
end;
println;
println('Количество кратных', c, ':', kc);
println('Сумма кратных', d, ':', kd);
println('Количество чисел, у которых сумма цифр равна произведению:', sc);
// Или так:
Range(a, b).Where(x -> x mod c = 0).Count.Println;
Range(a, b).Where(x -> x mod d = 0).Sum.Println;
Range(a, b).Where(x -> (x mod 10 * x div 10) = (x mod 10 + x div 10)).Count.Println;
end.