Написать программу в pascal по и while. : вывести на экран числа оканчивающаяся на 3 в промежутке от n до 150

While:

var
  n: integer;

begin
  write('Введите начало диапазона (n): ');
  readln(n);
  while n < 150 do
  begin
    if n mod 10 = 3
      then  write(n, ' ');
    n := n + 1; end;
end.

for:

var
  n, i: integer;

begin
  write('Введите начало диапазона (n): ');
  readln(n);
  for i := n to 150 do
    if n mod 10 = 3
      then  write(i, ' ');
end.