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.