Вывести таблицу квадратов чётных чисел от 1 до 19. Условный оператор не использова

Var a,bi: int64; Begin  a:=2; Repeat  b:=a×a; Write(b,' '); a:=a+2; until a=18; End.