Вывести на экран все четные числа из отрезка от a до b, при этом границы отрезка заведомо правильно вводятся с клавиатуры. Паскаль, цикл while

Очень похоже на предыдущее решение)))) Ну просто очень...

var  a,b:integer;begin  Write('Введите a и b: '); Read(a,b);  if a mod 2<>0 then inc(a);  while a<=b do begin    Write(a,' ');    a:=a+2    endend.ПримерВведите a и b: -7 11-6 -4 -2 0 2 4 6 8 10

Program n1;var a,b: integer;beginreadln(a,b);if a mod 2<>0 then a:=a+1;while a<=b dobeginwrite(a,' ');a:=a+2;end;end.