Напишите,, паскаль код для следующих 1) сумма цифр данного трехзначного числа n является четным числом; 2) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;

Программу я не писала .
1 )
а+а*10+а*100:=N;
N mod 2=0;
2)
N:=a+a*10+a*100;
N*N=(a+a*10+a*100)*(a+a*10+a*100)*(a+a*10+a*100);

1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.

2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.