Прошу помощи с Паскаль! program z2;Var c,d,k,t,P1,P2 : integer;R : real;Procedure PRO (n, a : integer; Var P: real);Var i:integer;BeginP:=1;For i:=1 to 10 doP:=P*(i-a);End;BeginWriteln ('vv 2 cgisla');Readln (c,d);Writeln ('вв 2 ч >= 2');Readln (k,t);PRO(k,c,P1);Pro(t,d,P2);R:=2*(P1/P2);Writeln (R);End.1) Восстановить условие, постановку и алгоитм.2) Переписать программу заменив процедуру функцией