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

Question

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

Answer 1

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