немного переделать задание

[braza]

Как написать эту же программу через цикл REPEAT,,,,UNTIL?
заранее благодарен

var a,s:real;
     i:integer;
begin
s:=0
for i:=1 to 10 do begin
a:=i/4
writeln ('a=',a)
s:=s+a;
end;
writeln ('s=',s)
end.

[_Dmitry]

var a,s:real;   
     i:integer;   
begin
  i:=0;   
  repeat
    i:=i+1;   
    a:=i/4   
    writeln ('a=',a)   
    s:=s+a;   
  until i>=10;   
  writeln ('s=',s)   
end.