Дано трёхзначное число проверить,будет ли сумма его цифр чётным или не чётным числом.

123 (5) в ( ) (10)
1023 (4) в ( ) (10)
0,4412(5) в ( ) (10)
0,076 (8) в ( ) (10)
123(10) в ( ) (5)
149 (10) в ( ) (8)
1500 (10) в ( ) (8)
25 (10) в ( ) (2)

program f_3;
var f1, f2, f3:text;
C:integer;
G:char;
s:string;
sp:string;
begin
s:=('');
sp:=(' ');
Assign(f1, 't.txt');
Assign(f2, 't2.txt');
Assign(f3, 't3.txt');
Reset(f1);
Rewrite(f2);
Rewrite(f3);
while not eof(f1) do
begin
readln(f1,G);
C:=ord(G);
writeln(f2,inttostr(C));
end;
Reset(f2);
while not eof(f2) do
begin
readln(f2,C);
G:=chr(C);
writeln(f3,G);
end;
close(f1);
close(f2);
close(f3);
end.

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом.
Я новичок в этом, так-что желательно с пояснениями.
( В интернете есть решение данной задачи, но там очень всё запутанно для начинающего, а если нам это задали, уверенна есть вариант намного проще)

8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.

д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр