Как в паскале abc сделать таблицу умножения четных чисел

Const N = 5;
var x, y: integer;
begin
  for y := 1 to N do begin
    for x := 1 to N do 
      write(String.Format('{0,2}*{1,2}={2,3} ', 2*x, 2*y, 4*x*y));
    writeln;
  end;
end.