Пожалуйста, помогите с решением задачи на паскале(10 класс информатика). Пробовал что нибудь настроить на кодблоке, не получилось.
з.ы. МОдераторов прошу простить, не смог я написать на формулах в текстовом варианте.

1.var i,j:integer; p,s:real;begins:=0;for i:=1 to 5 do begin p:=1; for j:=1 to 6 do p:=p*(i+j)/20; s:=s+p; end;writeln('s=',s);end.2.В этой задаче используется тип real, так как числа получаются ОЧЕНЬ БОЛЬШИЕvar n,k:integer; p1,p2,s:real;beginp1:=1;for n:=1 to 5 do p1:=p1*n;p2:=1;for k:=1 to 30 do p2:=p2*k;s:=p1+p2;writeln(p1,'  ',p2);writeln('s=',s);end.