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

Сколько раз писали " " – никогда не давали..
Что for, что while – блок-схема одна, только код разный.

1.
var i,n:integer;
begin
readln (n);
for i:=n to 150 do
if i mod 10 = 3 then write (i,'   ')
end.

2.
var n:integer;
begin
readln (n);
while n < 150 do
begin
if n mod 10 = 3 then write (n,'   ');
n:=n+1
end
end.