хрень на паскале

program Numbers;

var
  n : integer = 4;
  c : integer = 1;
  tmp : integer;
begin
  while n < 100 do
  begin
    tmp:=n;
    if(tmp mod 10 = 3) then
    begin
        c := c + 1;
        writeln(n);
    end
    else
    begin
        tmp := tmp div 10;
        if(tmp mod 10 = 3) then begin
            c:= c + 1;
            writeln(n);
        end;
    end;
    n:=n+1;
  end;
  writeln('Количество: ', c);
end.