ПОМОГИТЕ В PASCAL ПРОШУ Найти сумму цифр произвольного целого числа N.

4. Подсчитать сумму всех нечётных чисел от 31 до 55.

5. Вычислить наибольший общий делитель двух целых чисел (используя алгоритм Евклида).

6. Найти наименьшее общее кратное двух целых чисел.

7. Найти частное и остаток от деления числа а на числа b (не используя функции mod и div).

Спасибо

program lol (input, output);var a, n, b, i, p,s, m:integer;c:real;beginread (n);a:=n;b:=0;c:=0;p:=1;while a <> 0 dobegina:=a div 10;b:=b+1;end;while b <> 0 dobeginp:=1;for m:=1 to b dop:=p*10;s:=(n mod p) div (p div 10);c:=c+s;end;b:=b-1;end;writeln (c);end.---------------------------------------------------program lol (input, output);var I, a:integer;begina:=0;for I:=31 to 55 dobeginif (i mod 2) <> 0 thena:=a+I;end;writeln (a);end.------------------------------------------------------var a, b, c, s, I:integer;beginread (a, b);if a<b thenbeginc:=a;a:=b;b:=c;end;c:=a;while c > 0 dobeginwhile c >= b dobeginc:=a-b;if c > 0 thens:=c;a:=c;end;a:=b;b:=c;end;writeln (s);end.------------------------------------------------program lol (input, output); var m, n, prod: word; begin readln(m, n); prod := m * n; while m <> n do begin if m > n then begin m := m - n end else begin n := n - m end end; writeln(prod div m) end.---------------------------------------------program lol (input, output);var a, b, c, e:Integer;d:real;beginread (a, b);d:=a/b;c:=trunc(d);e:=a-(b*c);writeln ('Частное: ',c);writeln ('Остаток: ',e);end.