Решите задачи в Паскале.
1. Найти и вывести на экран количество и сумму
всех натуральных трехзначных чисел, кратных
25.
2. Найти и вывести на экран количество
четырехзначных чисел, сумма цифр которых
равна 34.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!№1begin  var (k,s):=(0,0);  Range(100,999,25).ForEach(t->begin k+=1; s+=t end);  Writeln('Количество ',k,', сумма ',s)end.РезультатКоличество 36, сумма 19350№2function ds(n:integer):integer;begin  Result:=0;  while n>0 do begin    Result+=n mod 10;    n:=n div 10    endend;begin  Writeln('Чисел: ',1000.To(9999).Where(t->ds(t)=34).Count)end.РезультатЧисел: 10