Нужно написать программу для паскаль авс, (тема: циклы с пред-пост-условием)что бы программа выводила на экран знак «*» до тех пор, пока не будет введен с клавиатуры знак «0»

Var  a: integer;
begin 
//пред условие
  read(a);
  while a <> 0 do
  begin
    writeln('*');
    read(a);
  end;
end.



var  a: integer;
begin
  //пост условие
    repeat
     writeln('*');
    read(a);
  until a=0
end.