перепишите программу с repeat

program Zadacha5;
uses crt;
var
a, z, ch, zn :real;
i:integer;
begin
write('A=');
read (a);
if (a>2) and (a<=3)then begin
ch:=sqr(a-2);
zn:=1/2;
z:=0 ;
for i:=1 to 3 do
begin
ch:=ch*(-sqr(a-2));
zn:=zn*(2*i-1)*2*i;
z:=z+ch/zn;
end;
writeln ('Z=',z);
end
else writeln('Переменная А введена некоректно');
end.