Помогите, пожалуйста​

var a,cra,crg:real;

i:integer;

begin

   cra:=0;

     crg:=1;

 for i:=1 to 4 do begin

   writeln('введите ' , i ,' число');

 readln(a);

  cra:=cra+a;

  crg:=crg*a

 end;

 cra:=cra/4;

 crg:=sqrt(sqrt(crg));

 writeln('ср арифм=',cra);

writeln('ср геом=',crg);

end.