Вывести на экран все числа от 10 до 2030 которые заканчиваются на 11. паскаль

Var
i: integer;
begin
for i:=10 to 2030 do
if ((i mod 10) = 1) and (((i div 10) mod 10)=1) then write (i, '; ');
end.