ИНФОРМАТИКА 10 КЛАСС Пожалуйста посчитайте РЕШИТЬ (для паскаля)

1)
var a,n,p: integer;

begin
readln(n);
readln(a);
p:=(n div 100)*((n div 10)mod 10)*(n mod 10);
println(p);
if p>a then
  println('da')
else
  println('net')
end.

2)
begin
  var a:=ArrRandom(4,-10,10);
  a.Println;
  Writeln('summa ',a.Where(x->(x mod 3 =0)).Sum)
end.