Продумайте и запишите в дневник безопасности порядок своего поведения при угрозе возникновения селя в нескольких ситуациях (во время

var a, sum: real;
var i: integer;
begin
sum:=1;
a:=1;
for i:=1 to 3 do begin 
a:=a+2; 
sum:=a*sum; 
end;
writeln (sum);
end.